diff options
Diffstat (limited to 'lib/Numeric/ContainerBoot.hs')
-rw-r--r-- | lib/Numeric/ContainerBoot.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/Numeric/ContainerBoot.hs b/lib/Numeric/ContainerBoot.hs index 6ce4760..d50dd36 100644 --- a/lib/Numeric/ContainerBoot.hs +++ b/lib/Numeric/ContainerBoot.hs | |||
@@ -1,11 +1,9 @@ | |||
1 | {-# LANGUAGE CPP #-} | ||
1 | {-# LANGUAGE TypeFamilies #-} | 2 | {-# LANGUAGE TypeFamilies #-} |
2 | {-# LANGUAGE FlexibleContexts #-} | 3 | {-# LANGUAGE FlexibleContexts #-} |
3 | {-# LANGUAGE FlexibleInstances #-} | 4 | {-# LANGUAGE FlexibleInstances #-} |
4 | {-# LANGUAGE MultiParamTypeClasses #-} | 5 | {-# LANGUAGE MultiParamTypeClasses #-} |
5 | {-# LANGUAGE UndecidableInstances #-} | 6 | {-# LANGUAGE UndecidableInstances #-} |
6 | #ifndef NOPOLYKINDS | ||
7 | {-# LANGUAGE PolyKinds #-} | ||
8 | #endif | ||
9 | 7 | ||
10 | ----------------------------------------------------------------------------- | 8 | ----------------------------------------------------------------------------- |
11 | -- | | 9 | -- | |
@@ -55,12 +53,12 @@ import Numeric.LinearAlgebra.LAPACK(multiplyR,multiplyC,multiplyF,multiplyQ) | |||
55 | 53 | ||
56 | ------------------------------------------------------------------- | 54 | ------------------------------------------------------------------- |
57 | 55 | ||
58 | type family IndexOf c | 56 | type family IndexOf (c :: * -> *) |
59 | 57 | ||
60 | type instance IndexOf Vector = Int | 58 | type instance IndexOf Vector = Int |
61 | type instance IndexOf Matrix = (Int,Int) | 59 | type instance IndexOf Matrix = (Int,Int) |
62 | 60 | ||
63 | type family ArgOf c a | 61 | type family ArgOf (c :: * -> *) a |
64 | 62 | ||
65 | type instance ArgOf Vector a = a -> a | 63 | type instance ArgOf Vector a = a -> a |
66 | type instance ArgOf Matrix a = a -> a -> a | 64 | type instance ArgOf Matrix a = a -> a -> a |