diff options
Diffstat (limited to 'packages/base/src/Data')
-rw-r--r-- | packages/base/src/Data/Packed/Foreign.hs | 1 | ||||
-rw-r--r-- | packages/base/src/Data/Packed/Internal/Vector.hs | 5 |
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 | |||
16 | import Data.Packed.Internal | 16 | import Data.Packed.Internal |
17 | import qualified Data.Vector.Storable as S | 17 | import qualified Data.Vector.Storable as S |
18 | import Foreign (Ptr, ForeignPtr, Storable) | 18 | import Foreign (Ptr, ForeignPtr, Storable) |
19 | import Foreign.C.Types (CInt) | ||
20 | import GHC.Base (IO(..), realWorld#) | 19 | import 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 | ||
31 | import Data.Packed.Internal.Common | 31 | import Data.Packed.Internal.Common |
@@ -56,8 +56,7 @@ import Data.Vector.Storable(Vector, | |||
56 | unsafeFromForeignPtr, | 56 | unsafeFromForeignPtr, |
57 | unsafeWith) | 57 | unsafeWith) |
58 | 58 | ||
59 | 59 | type I = CInt | |
60 | type Idxs = Vector CInt | ||
61 | 60 | ||
62 | -- | Number of elements | 61 | -- | Number of elements |
63 | dim :: (Storable t) => Vector t -> Int | 62 | dim :: (Storable t) => Vector t -> Int |