diff options
| author | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2007-08-07 12:14:54 +0000 |
|---|---|---|
| committer | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2007-08-07 12:14:54 +0000 |
| commit | 01ecefa4b97106fec5c139c5514e5d56e59ecbaf (patch) | |
| tree | 5fe97b253ff544ee2c8b8ebb13780c9d7fc883e2 /compiler/utils | |
| parent | a65481fce16930ff0cd343c9278d9b8961bee94f (diff) | |
| download | haskell-01ecefa4b97106fec5c139c5514e5d56e59ecbaf.tar.gz | |
Warning police: eliminate all defaulting within stage1
Defaulting makes compilation of multiple modules more complicated (re: #1405)
Although it was all locally within functions, not because of the module
monomorphism-restriction... but it's better to be clear what's meant, anyway.
I changed some that were defaulting to Integer, to explicit Int, where Int
seemed appropriate rather than Integer.
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Pretty.lhs | 2 | ||||
| -rw-r--r-- | compiler/utils/StringBuffer.lhs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Pretty.lhs b/compiler/utils/Pretty.lhs index 96ea1fbfc5..51ecf31845 100644 --- a/compiler/utils/Pretty.lhs +++ b/compiler/utils/Pretty.lhs @@ -446,7 +446,7 @@ int n = text (show n) integer n = text (show n) float n = text (show n) double n = text (show n) -rational n = text (show (fromRat n)) +rational n = text (show (fromRat n :: Double)) --rational n = text (show (fromRationalX n)) -- _showRational 30 n) quotes p = char '`' <> p <> char '\'' diff --git a/compiler/utils/StringBuffer.lhs b/compiler/utils/StringBuffer.lhs index 18359456be..e02a3ba0d5 100644 --- a/compiler/utils/StringBuffer.lhs +++ b/compiler/utils/StringBuffer.lhs @@ -113,7 +113,7 @@ hGetStringBufferBlock handle wanted withForeignPtr buf $ \ptr -> do r <- if size == 0 then return 0 else hGetBuf handle ptr size if r /= size - then ioError (userError $ "short read of file: "++show(r,size,fromIntegral size_i,handle)) + then ioError (userError $ "short read of file: "++show(r,size,size_i,handle)) else do pokeArray (ptr `plusPtr` size :: Ptr Word8) [0,0,0] return (StringBuffer buf size 0) |