summaryrefslogtreecommitdiff
path: root/packages
diff options
context:
space:
mode:
Diffstat (limited to 'packages')
-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
10module Data.Packed.Foreign 10module 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
16import Data.Packed.Internal 16
17import Foreign.C.Types(CInt)
18import Internal.Vector
19import Internal.Matrix
17import qualified Data.Vector.Storable as S 20import qualified Data.Vector.Storable as S
18import Foreign (Ptr, ForeignPtr, Storable) 21import Foreign (Ptr, ForeignPtr, Storable)
19import GHC.Base (IO(..), realWorld#) 22import GHC.Base (IO(..), realWorld#)