Fix "warn-unused-do-bind" warnings where we really do want to ignore the result

[ghc-base.git] / GHC / IO / Buffer.hs

diff --git a/GHC/IO/Buffer.hs b/GHC/IO/Buffer.hs
index 4cd13a6..18304fe 100644 (file)
--- a/GHC/IO/Buffer.hs
+++ b/GHC/IO/Buffer.hs
@@ -243,7 +243,9 @@ newBuffer bytes sz state = do
 slideContents :: Buffer Word8 -> IO (Buffer Word8)
 slideContents buf@Buffer{ bufL=l, bufR=r, bufRaw=raw } = do
   let elems = r - l
-  withRawBuffer raw $ \p -> memcpy p (p `plusPtr` l) (fromIntegral elems)
+  withRawBuffer raw $ \p ->
+      do _ <- memcpy p (p `plusPtr` l) (fromIntegral elems)
+         return ()
   return buf{ bufL=0, bufR=elems }
 
 foreign import ccall unsafe "memcpy"