Commits

Anonymous committed 7863ea0

Bind to _ in do notation to avoid GHC 6.12 warnings.

  • Participants
  • Parent commits 2441a73

Comments (0)

Files changed (1)

File Data/Attoparsec/FastSet.hs

 
 mkTable :: B.ByteString -> B.ByteString
 mkTable s = I.unsafeCreate 32 $ \t -> do
-            I.memset t 0 32
+            _ <- I.memset t 0 32
             U.unsafeUseAsCStringLen s $ \(p, l) ->
               let loop n | n == l = return ()
                          | otherwise = do