diff options
| author | simonpj@microsoft.com <unknown> | 2009-05-28 16:45:25 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-05-28 16:45:25 +0000 |
| commit | 7a7fdd38e46cb337b21afbdc20bf2ab645838a58 (patch) | |
| tree | 7de840029789f72a6756de004ac871328e0bedcd /compiler | |
| parent | 62070c7f5bb3f4248557c30a0a9afa96c4f31799 (diff) | |
| download | haskell-7a7fdd38e46cb337b21afbdc20bf2ab645838a58.tar.gz | |
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
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/ghci/ByteCodeAsm.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/ByteCodeAsm.lhs b/compiler/ghci/ByteCodeAsm.lhs index de85a6be40..66a15004f9 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) |