hWaitForInput: don't try to read from the device (#4078)

[ghc-base.git] / Foreign / Storable.hs

diff --git a/Foreign/Storable.hs b/Foreign/Storable.hs
index dfcafa6..0b0ad0c 100644 (file)
--- a/Foreign/Storable.hs
+++ b/Foreign/Storable.hs
@@ -42,12 +42,12 @@ import Control.Monad            ( liftM )
 #ifdef __GLASGOW_HASKELL__
 import GHC.Storable
 import GHC.Stable       ( StablePtr )
+import GHC.IO()                -- Instance Monad IO
 import GHC.Num
 import GHC.Int
 import GHC.Word
 import GHC.Ptr
 import GHC.Err
-import GHC.IOBase
 import GHC.Base
 #else
 import Data.Int