X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Foreign%2FStorable.hs;h=700a4ff5eeb9587e567a38302688a40e53cd0fcb;hb=41e8fba828acbae1751628af50849f5352b27873;hp=832efb3a15deef3e6a59d5916c0699c30b08e366;hpb=1a2d88a60a8e2c8be84879d79f148d4c6ceb348e;p=ghc-base.git

diff --git a/Foreign/Storable.hs b/Foreign/Storable.hs
index 832efb3..700a4ff 100644
--- a/Foreign/Storable.hs
+++ b/Foreign/Storable.hs
@@ -1,4 +1,5 @@
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude, ScopedTypeVariables #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Foreign.Storable
@@ -42,6 +43,7 @@ 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