From 412e6ede94afaa638cd4d918278fcf2a27222993 Mon Sep 17 00:00:00 2001 From: Ian Lynagh <igloo@earth.li> Date: Sun, 13 Jan 2008 14:16:30 +0000 Subject: Fix warnings in utils/BufWrite --- compiler/utils/BufWrite.hs | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) (limited to 'compiler/utils/BufWrite.hs') diff --git a/compiler/utils/BufWrite.hs b/compiler/utils/BufWrite.hs index 140d4b2367..d625a6e6c3 100644 --- a/compiler/utils/BufWrite.hs +++ b/compiler/utils/BufWrite.hs @@ -1,10 +1,3 @@ -{-# OPTIONS -w #-} --- The above warning supression flag is a temporary kludge. --- While working on this module you are encouraged to remove it and fix --- any warnings in the module. See --- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings --- for details - ----------------------------------------------------------------------------- -- -- Fast write-buffered Handles @@ -55,7 +48,8 @@ newBufHandle hdl = do writeFastMutInt r 0 return (BufHandle ptr r hdl) -buf_size = 8192 :: Int +buf_size :: Int +buf_size = 8192 #define STRICT2(f) f a b | a `seq` b `seq` False = undefined #define STRICT3(f) f a b c | a `seq` b `seq` c `seq` False = undefined @@ -73,7 +67,7 @@ bPutChar b@(BufHandle buf r hdl) c = do bPutStr :: BufHandle -> String -> IO () STRICT2(bPutStr) -bPutStr b@(BufHandle buf r hdl) str = do +bPutStr (BufHandle buf r hdl) str = do i <- readFastMutInt r loop str i where loop _ i | i `seq` False = undefined @@ -115,7 +109,7 @@ bPutLitString b@(BufHandle buf r hdl) a# len# = do writeFastMutInt r (i+len) bFlush :: BufHandle -> IO () -bFlush b@(BufHandle buf r hdl) = do +bFlush (BufHandle buf r hdl) = do i <- readFastMutInt r when (i > 0) $ hPutBuf hdl buf i free buf -- cgit v1.2.1