summaryrefslogtreecommitdiff
path: root/packages/base/src/Data
diff options
context:
space:
mode:
Diffstat (limited to 'packages/base/src/Data')
-rw-r--r--packages/base/src/Data/Packed/Foreign.hs1
-rw-r--r--packages/base/src/Data/Packed/Internal/Vector.hs5
2 files changed, 2 insertions, 4 deletions
diff --git a/packages/base/src/Data/Packed/Foreign.hs b/packages/base/src/Data/Packed/Foreign.hs
index 1ec3694..85b8bc7 100644
--- a/packages/base/src/Data/Packed/Foreign.hs
+++ b/packages/base/src/Data/Packed/Foreign.hs
@@ -16,7 +16,6 @@ module Data.Packed.Foreign
16import Data.Packed.Internal 16import Data.Packed.Internal
17import qualified Data.Vector.Storable as S 17import qualified Data.Vector.Storable as S
18import Foreign (Ptr, ForeignPtr, Storable) 18import Foreign (Ptr, ForeignPtr, Storable)
19import Foreign.C.Types (CInt)
20import GHC.Base (IO(..), realWorld#) 19import GHC.Base (IO(..), realWorld#)
21 20
22{-# INLINE unsafeInlinePerformIO #-} 21{-# INLINE unsafeInlinePerformIO #-}
diff --git a/packages/base/src/Data/Packed/Internal/Vector.hs b/packages/base/src/Data/Packed/Internal/Vector.hs
index ac35596..ac019a8 100644
--- a/packages/base/src/Data/Packed/Internal/Vector.hs
+++ b/packages/base/src/Data/Packed/Internal/Vector.hs
@@ -25,7 +25,7 @@ module Data.Packed.Internal.Vector (
25 unsafeToForeignPtr, 25 unsafeToForeignPtr,
26 unsafeFromForeignPtr, 26 unsafeFromForeignPtr,
27 unsafeWith, 27 unsafeWith,
28 CInt,Idxs 28 CInt, I
29) where 29) where
30 30
31import Data.Packed.Internal.Common 31import Data.Packed.Internal.Common
@@ -56,8 +56,7 @@ import Data.Vector.Storable(Vector,
56 unsafeFromForeignPtr, 56 unsafeFromForeignPtr,
57 unsafeWith) 57 unsafeWith)
58 58
59 59type I = CInt
60type Idxs = Vector CInt
61 60
62-- | Number of elements 61-- | Number of elements
63dim :: (Storable t) => Vector t -> Int 62dim :: (Storable t) => Vector t -> Int