summaryrefslogtreecommitdiff
path: root/lib/Numeric/ContainerBoot.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Numeric/ContainerBoot.hs')
-rw-r--r--lib/Numeric/ContainerBoot.hs9
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/Numeric/ContainerBoot.hs b/lib/Numeric/ContainerBoot.hs
index a605545..0215711 100644
--- a/lib/Numeric/ContainerBoot.hs
+++ b/lib/Numeric/ContainerBoot.hs
@@ -1,3 +1,4 @@
1{-# LANGUAGE CPP #-}
1{-# LANGUAGE TypeFamilies #-} 2{-# LANGUAGE TypeFamilies #-}
2{-# LANGUAGE FlexibleContexts #-} 3{-# LANGUAGE FlexibleContexts #-}
3{-# LANGUAGE FlexibleInstances #-} 4{-# LANGUAGE FlexibleInstances #-}
@@ -50,6 +51,10 @@ import Numeric.Conversion
50import Data.Packed.Internal 51import Data.Packed.Internal
51import Numeric.GSL.Vector 52import Numeric.GSL.Vector
52 53
54#if __GLASGOW_HASKELL__ >= 704
55import Foreign.C.Types(CInt(..))
56#endif
57
53import Data.Complex 58import Data.Complex
54import Control.Monad(ap) 59import Control.Monad(ap)
55 60
@@ -59,12 +64,12 @@ import System.IO.Unsafe
59 64
60------------------------------------------------------------------- 65-------------------------------------------------------------------
61 66
62type family IndexOf c 67type family IndexOf (c :: * -> *)
63 68
64type instance IndexOf Vector = Int 69type instance IndexOf Vector = Int
65type instance IndexOf Matrix = (Int,Int) 70type instance IndexOf Matrix = (Int,Int)
66 71
67type family ArgOf c a 72type family ArgOf (c :: * -> *) a
68 73
69type instance ArgOf Vector a = a -> a 74type instance ArgOf Vector a = a -> a
70type instance ArgOf Matrix a = a -> a -> a 75type instance ArgOf Matrix a = a -> a -> a