diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-05-26 20:14:56 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-05-26 20:14:56 +0200 |
commit | 9a640d084f3d950e37e054672c9bbbefe4af06d7 (patch) | |
tree | c9016bbf1f28848aeef61aae4c0d6715d188f296 /packages/base/src/Data/Packed | |
parent | f38aba5c0086e662a9e49043f414d03a0dacb044 (diff) |
tr' , documentation
Diffstat (limited to 'packages/base/src/Data/Packed')
-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 |