From 7a7fdd38e46cb337b21afbdc20bf2ab645838a58 Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Thu, 28 May 2009 16:45:25 +0000 Subject: [PATCH] Remove type-ambiguous (fromIntegral 0)::Int, replacing it with just 0 This unnecessary ambiguity has been there for ages, and is now rejected by -Werror, after fixing #3261 --- compiler/ghci/ByteCodeAsm.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ghci/ByteCodeAsm.lhs b/compiler/ghci/ByteCodeAsm.lhs index de85a6b..66a1500 100644 --- a/compiler/ghci/ByteCodeAsm.lhs +++ b/compiler/ghci/ByteCodeAsm.lhs @@ -385,7 +385,7 @@ mkBits findLabel st proto_insns literal st (MachLabel fs _ _) = litlabel st fs literal st (MachWord w) = int st (fromIntegral w) literal st (MachInt j) = int st (fromIntegral j) - literal st MachNullAddr = int st (fromIntegral 0) + literal st MachNullAddr = int st 0 literal st (MachFloat r) = float st (fromRational r) literal st (MachDouble r) = double st (fromRational r) literal st (MachChar c) = int st (ord c) -- 1.7.10.4