summaryrefslogtreecommitdiff
path: root/packages/base/src/Data/Packed
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2015-05-26 20:14:56 +0200
committerAlberto Ruiz <aruiz@um.es>2015-05-26 20:14:56 +0200
commit9a640d084f3d950e37e054672c9bbbefe4af06d7 (patch)
treec9016bbf1f28848aeef61aae4c0d6715d188f296 /packages/base/src/Data/Packed
parentf38aba5c0086e662a9e49043f414d03a0dacb044 (diff)
tr' , documentation
Diffstat (limited to 'packages/base/src/Data/Packed')
-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