Commits

Anonymous committed 89bb703

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

Comments (0)

Files changed (2)

Data/BloomFilter.hs

 {-# INLINE createB #-}
 createB hash numBits body = runST $ do
   mb <- newMB hash numBits
-  body mb
+  _  <- body mb
   unsafeFreezeMB mb
 
 -- | Create an empty Bloom filter.
 {-# INLINE modifyB #-}
 modifyB body ub = runST $ do
   mb <- thawMB ub
-  body mb
+  _  <- body mb
   unsafeFreezeMB mb
 
 -- | Create a new Bloom filter from an existing one, with the given

Data/BloomFilter/Array.hs

 {-# INLINE newArray #-}
 newArray numElems numBytes = do
   ary@(STUArray _ _ _ marr#) <- unsafeNewArray_ (0, numElems - 1)
-  unsafeIOToST (memset marr# 0 (fromIntegral numBytes))
+  _ <- unsafeIOToST (memset marr# 0 (fromIntegral numBytes))
   return ary
 
 foreign import ccall unsafe "memset"