Bind to _ in do notation to avoid GHC 6.12 warnings.
commitac67bfa27b3b31b4f5e47f387ed94cc64decb054
authorBjorn Buckwalter <bjorn@buckwalter.se>
dateTue 15 Jun 2010, 21:51 (16 years ago)
parent5411fb8
Data/Attoparsec/FastSet.hs+1−1
@@ -97,7 +97,7 @@ memberChar c = memberWord8 (I.c2w c)
9797
9898mkTable :: B.ByteString -> B.ByteString
9999mkTable s = I.unsafeCreate 32 $ \t -> do
100− I.memset t 0 32
100+ _ <- I.memset t 0 32
101101 U.unsafeUseAsCStringLen s $ \(p, l) ->
102102 let loop n | n == l = return ()
103103 | otherwise = do