X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Foreign%2FStorable.hs;h=0b0ad0cda1906ca4a8923bbe7ecb93e68f2e3760;hb=9708f4c2dd652dfd4a0181e35d184b852124d547;hp=adead2d7f8915858b42b19f65d90496bc43bbc30;hpb=10de2c656f74562b662c22928be85e1b3ccda796;p=ghc-base.git

diff --git a/Foreign/Storable.hs b/Foreign/Storable.hs
index adead2d..0b0ad0c 100644
--- a/Foreign/Storable.hs
+++ b/Foreign/Storable.hs
@@ -42,13 +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.Float
 import GHC.Err
-import GHC.IOBase
 import GHC.Base
 #else
 import Data.Int