X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Foreign%2FMarshal%2FArray.hs;h=ae7db1aee27e81b88869d592ecf3e028a3df6b0f;hb=ad1f54dfe9bf344934c3dfa7d5a710cfa3d16944;hp=16a3e47bb3567d322067da7c3bb07f3a69934e95;hpb=f7a485978f04e84b086f1974b88887cc72d832d0;p=ghc-base.git

diff --git a/Foreign/Marshal/Array.hs b/Foreign/Marshal/Array.hs
index 16a3e47..ae7db1a 100644
--- a/Foreign/Marshal/Array.hs
+++ b/Foreign/Marshal/Array.hs
@@ -60,12 +60,12 @@ module Foreign.Marshal.Array (
 ) where
 
 import Control.Monad
-
-#ifdef __GLASGOW_HASKELL__
-import Foreign.Ptr	        (Ptr, plusPtr)
-import GHC.Storable     (Storable(sizeOf,peekElemOff,pokeElemOff))
+import Foreign.Ptr	(Ptr, plusPtr)
+import Foreign.Storable	(Storable(sizeOf,peekElemOff,pokeElemOff))
 import Foreign.Marshal.Alloc (alloca, mallocBytes, allocaBytes, reallocBytes)
 import Foreign.Marshal.Utils (copyBytes, moveBytes)
+
+#ifdef __GLASGOW_HASKELL__
 import GHC.IOBase
 import GHC.Num
 import GHC.List