X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FArray%2FBase.hs;h=58ee5ebaf9726f812620757e8ac6f236aef7adbe;hb=d539a9457e2c79a9f13744d073d3f253ea2fb33e;hp=e32e8c0c4fb511a3879287080236138ec7d4776a;hpb=acd78d6dbda0108ffa899cb585114a21c5ed7499;p=ghc-base.git

diff --git a/Data/Array/Base.hs b/Data/Array/Base.hs
index e32e8c0..58ee5eb 100644
--- a/Data/Array/Base.hs
+++ b/Data/Array/Base.hs
@@ -19,12 +19,10 @@ module Data.Array.Base where
 import Prelude
 
 import Data.Ix		( Ix, range, index, rangeSize )
-import Data.Bits
 import Data.Int
 import Data.Word
 import Foreign.Ptr
 import Foreign.StablePtr
-import Foreign.Storable
 
 #ifdef __GLASGOW_HASKELL__
 import GHC.Arr		( STArray, unsafeIndex )
@@ -41,6 +39,8 @@ import GHC.Word		( Word8(..), Word16(..), Word32(..), Word64(..) )
 #endif
 
 #ifdef __HUGS__
+import Data.Bits
+import Foreign.Storable
 import qualified Hugs.Array as Arr
 import qualified Hugs.ST as ArrST
 import Hugs.Array ( unsafeIndex )
@@ -48,7 +48,7 @@ import Hugs.ST ( STArray, ST(..), runST )
 import Hugs.ByteArray
 #endif
 
-import Data.Dynamic
+import Data.Typeable
 #include "Typeable.h"
 
 #include "MachDeps.h"