diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-08-24 08:04:00 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-08-24 08:04:00 +0000 |
| commit | 2900ac71b7f36fbf2f4a89b4dd85583f694bc31c (patch) | |
| tree | 494546cf1023e643001657a21aafb8e25509e0c2 /compiler | |
| parent | 1631a17da7e82f937e7ddbb49c747bc97d84ca69 (diff) | |
| download | haskell-2900ac71b7f36fbf2f4a89b4dd85583f694bc31c.tar.gz | |
fix do-notation warnings
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/iface/BinIface.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs index 3cfb43d2e7..ffbba4a140 100644 --- a/compiler/iface/BinIface.hs +++ b/compiler/iface/BinIface.hs @@ -102,8 +102,8 @@ readBinIface_ dflags checkHiWay traceBinIFaceReading hi_path update_nc = do -- are always 32 bits. -- if wORD_SIZE == 4 - then do Binary.get bh :: IO Word32; return () - else do Binary.get bh :: IO Word64; return () + then do _ <- Binary.get bh :: IO Word32; return () + else do _ <- Binary.get bh :: IO Word64; return () -- Check the interface file version and ways. check_ver <- get bh |