diff options
Diffstat (limited to 'lib/Numeric/ContainerBoot.hs')
-rw-r--r-- | lib/Numeric/ContainerBoot.hs | 9 |
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 | |||
50 | import Data.Packed.Internal | 51 | import Data.Packed.Internal |
51 | import Numeric.GSL.Vector | 52 | import Numeric.GSL.Vector |
52 | 53 | ||
54 | #if __GLASGOW_HASKELL__ >= 704 | ||
55 | import Foreign.C.Types(CInt(..)) | ||
56 | #endif | ||
57 | |||
53 | import Data.Complex | 58 | import Data.Complex |
54 | import Control.Monad(ap) | 59 | import Control.Monad(ap) |
55 | 60 | ||
@@ -59,12 +64,12 @@ import System.IO.Unsafe | |||
59 | 64 | ||
60 | ------------------------------------------------------------------- | 65 | ------------------------------------------------------------------- |
61 | 66 | ||
62 | type family IndexOf c | 67 | type family IndexOf (c :: * -> *) |
63 | 68 | ||
64 | type instance IndexOf Vector = Int | 69 | type instance IndexOf Vector = Int |
65 | type instance IndexOf Matrix = (Int,Int) | 70 | type instance IndexOf Matrix = (Int,Int) |
66 | 71 | ||
67 | type family ArgOf c a | 72 | type family ArgOf (c :: * -> *) a |
68 | 73 | ||
69 | type instance ArgOf Vector a = a -> a | 74 | type instance ArgOf Vector a = a -> a |
70 | type instance ArgOf Matrix a = a -> a -> a | 75 | type instance ArgOf Matrix a = a -> a -> a |