From: apt <unknown>
Date: Thu, 19 Jul 2001 15:34:39 +0000 (+0000)
Subject: [project @ 2001-07-19 15:34:39 by apt]
X-Git-Tag: Approximately_9120_patches~1503
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f0f7d71bb6d052d3180e28eb9bde0faabb966d56;p=ghc-hetmet.git

[project @ 2001-07-19 15:34:39 by apt]
fix typo in double2IntLit
---

diff --git a/ghc/compiler/basicTypes/Literal.lhs b/ghc/compiler/basicTypes/Literal.lhs
index f233d58..f9de3e3 100644
--- 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