summaryrefslogtreecommitdiff
path: root/packages/base/src/Numeric/LinearAlgebra/Static.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2015-01-08 13:54:23 +0100
committerAlberto Ruiz <aruiz@um.es>2015-01-08 13:54:23 +0100
commit8878aaaf649962f4360a94109a674da756ad2202 (patch)
treed131b381c200796715b14a6eda1d0ae001032777 /packages/base/src/Numeric/LinearAlgebra/Static.hs
parent432d80a0b65b0be64fe0dc0d7816f1f738895458 (diff)
update base to ghc-7.10
Diffstat (limited to 'packages/base/src/Numeric/LinearAlgebra/Static.hs')
-rw-r--r--packages/base/src/Numeric/LinearAlgebra/Static.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/packages/base/src/Numeric/LinearAlgebra/Static.hs b/packages/base/src/Numeric/LinearAlgebra/Static.hs
index cc5eb4f..a26cc4c 100644
--- a/packages/base/src/Numeric/LinearAlgebra/Static.hs
+++ b/packages/base/src/Numeric/LinearAlgebra/Static.hs
@@ -13,7 +13,6 @@
13{-# LANGUAGE TypeOperators #-} 13{-# LANGUAGE TypeOperators #-}
14{-# LANGUAGE ViewPatterns #-} 14{-# LANGUAGE ViewPatterns #-}
15{-# LANGUAGE GADTs #-} 15{-# LANGUAGE GADTs #-}
16{-# LANGUAGE OverlappingInstances #-}
17{-# LANGUAGE TypeFamilies #-} 16{-# LANGUAGE TypeFamilies #-}
18 17
19 18
@@ -184,8 +183,8 @@ a ¦ b = tr (tr a —— tr b)
184type Sq n = L n n 183type Sq n = L n n
185--type CSq n = CL n n 184--type CSq n = CL n n
186 185
187type GL = (KnownNat n, KnownNat m) => L m n 186type GL = forall n m . (KnownNat n, KnownNat m) => L m n
188type GSq = KnownNat n => Sq n 187type GSq = forall n . KnownNat n => Sq n
189 188
190isKonst :: forall m n . (KnownNat m, KnownNat n) => L m n -> Maybe (ℝ,(Int,Int)) 189isKonst :: forall m n . (KnownNat m, KnownNat n) => L m n -> Maybe (ℝ,(Int,Int))
191isKonst s@(unwrap -> x) 190isKonst s@(unwrap -> x)