Move Unbox and UVector to ModularPrelude.hs

DanBurton · Aug 12, 2012 · afce6e8 · afce6e8
1 parent 5c56d18
commit afce6e8
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/ModularPrelude.hs b/ModularPrelude.hs
@@ -3,11 +3,16 @@
 module ModularPrelude
     ( module X
     , LHashMap
+    , UVector
     ) where
 
 import BasicPrelude as X
 import Data.Default as X
 
+import Data.Vector.Unboxed as X (Unbox)
+
 import qualified Data.HashMap.Lazy
-type LHashMap = Data.HashMap.Lazy.HashMap
+import qualified Data.Vector.Unboxed
 
+type LHashMap = Data.HashMap.Lazy.HashMap
+type UVector = Data.Vector.Unboxed.Vector
diff --git a/ModularPrelude/UVector.hs b/ModularPrelude/UVector.hs
@@ -8,12 +8,8 @@ module ModularPrelude.UVector
 
 
 import ModularPrelude
-import Data.Vector.Unboxed (Unbox)
 import qualified Data.Vector.Unboxed as UV
 
--- TODO: move this to BasicPrelude
-type UVector = UV.Vector
-
 
 data UVectorModule = UVector
   { map       :: forall a b. (Unbox a, Unbox b)