Fix "warn-unused-do-bind" warnings in GHC/IO/Handle/Text.hs

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

diff --git a/GHC/IO/Buffer.hs b/GHC/IO/Buffer.hs
index bcdaabd..18304fe 100644 (file)
--- a/GHC/IO/Buffer.hs
+++ b/GHC/IO/Buffer.hs
@@ -60,7 +60,7 @@ module GHC.IO.Buffer (
  ) where
 
 import GHC.Base
-import GHC.IO
+-- import GHC.IO
 import GHC.Num
 import GHC.Ptr
 import GHC.Word
@@ -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"