From f0f7d71bb6d052d3180e28eb9bde0faabb966d56 Mon Sep 17 00:00:00 2001
From: apt <unknown>
Date: Thu, 19 Jul 2001 15:34:39 +0000
Subject: [PATCH] [project @ 2001-07-19 15:34:39 by apt] fix typo in
 double2IntLit

---
 ghc/compiler/basicTypes/Literal.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4