projects / ghc-hetmet.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: a383771)
[project @ 2001-07-19 15:34:39 by apt]
authorapt <unknown>
Thu, 19 Jul 2001 15:34:39 +0000 (15:34 +0000)
committerapt <unknown>
Thu, 19 Jul 2001 15:34:39 +0000 (15:34 +0000)
fix typo in double2IntLit

ghc/compiler/basicTypes/Literal.lhs patch | blob | history

diff --git a/ghc/compiler/basicTypes/Literal.lhs b/ghc/compiler/basicTypes/Literal.lhs
index f233d58..f9de3e3 100644 (file)
--- a/ghc/compiler/basicTypes/Literal.lhs
+++ b/ghc/compiler/basicTypes/Literal.lhs
@@ -191,7 +191,7 @@ int2CharLit (MachInt  i) = MachChar (fromInteger i)
 float2IntLit (MachFloat f) = MachInt   (truncate    f)
 int2FloatLit (MachInt   i) = MachFloat (fromInteger i)
 
-double2IntLit (MachFloat f) = MachInt    (truncate    f)
+double2IntLit (MachDouble f) = MachInt    (truncate    f)
 int2DoubleLit (MachInt   i) = MachDouble (fromInteger i)
 
 addr2IntLit (MachAddr a) = MachInt  a
Glasgow Haskell Compiler with heterogeneous metaprogramming (generalized arrows and modal types)