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.hs8
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
58type family IndexOf c 56type family IndexOf (c :: * -> *)
59 57
60type instance IndexOf Vector = Int 58type instance IndexOf Vector = Int
61type instance IndexOf Matrix = (Int,Int) 59type instance IndexOf Matrix = (Int,Int)
62 60
63type family ArgOf c a 61type family ArgOf (c :: * -> *) a
64 62
65type instance ArgOf Vector a = a -> a 63type instance ArgOf Vector a = a -> a
66type instance ArgOf Matrix a = a -> a -> a 64type instance ArgOf Matrix a = a -> a -> a