Commit 2900ac71 authored by Simon Marlow's avatar Simon Marlow

fix do-notation warnings

parent 1631a17d
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment