diff options
Diffstat (limited to 'packages/base/src')
-rw-r--r-- | packages/base/src/Internal/Foreign.hs (renamed from packages/base/src/Data/Packed/Foreign.hs) | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/packages/base/src/Data/Packed/Foreign.hs b/packages/base/src/Internal/Foreign.hs index 85b8bc7..ea071a4 100644 --- a/packages/base/src/Data/Packed/Foreign.hs +++ b/packages/base/src/Internal/Foreign.hs | |||
@@ -6,14 +6,17 @@ | |||
6 | -- @ glUniformMatrix4fv 0 1 (fromIntegral gl_TRUE) \`appMatrix\` perspective 0.01 100 (pi\/2) (4\/3) | 6 | -- @ glUniformMatrix4fv 0 1 (fromIntegral gl_TRUE) \`appMatrix\` perspective 0.01 100 (pi\/2) (4\/3) |
7 | -- @ | 7 | -- @ |
8 | -- | 8 | -- |
9 | {-# OPTIONS_HADDOCK hide #-} | 9 | |
10 | module Data.Packed.Foreign | 10 | module Internal.Foreign |
11 | ( app | 11 | ( app |
12 | , appVector, appVectorLen | 12 | , appVector, appVectorLen |
13 | , appMatrix, appMatrixLen, appMatrixRaw, appMatrixRawLen | 13 | , appMatrix, appMatrixLen, appMatrixRaw, appMatrixRawLen |
14 | , unsafeMatrixToVector, unsafeMatrixToForeignPtr | 14 | , unsafeMatrixToVector, unsafeMatrixToForeignPtr |
15 | ) where | 15 | ) where |
16 | import Data.Packed.Internal | 16 | |
17 | import Foreign.C.Types(CInt) | ||
18 | import Internal.Vector | ||
19 | import Internal.Matrix | ||
17 | import qualified Data.Vector.Storable as S | 20 | import qualified Data.Vector.Storable as S |
18 | import Foreign (Ptr, ForeignPtr, Storable) | 21 | import Foreign (Ptr, ForeignPtr, Storable) |
19 | import GHC.Base (IO(..), realWorld#) | 22 | import GHC.Base (IO(..), realWorld#) |