diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-01-08 13:54:23 +0100 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-01-08 13:54:23 +0100 |
commit | 8878aaaf649962f4360a94109a674da756ad2202 (patch) | |
tree | d131b381c200796715b14a6eda1d0ae001032777 /packages/base/src/Numeric/LinearAlgebra/Static.hs | |
parent | 432d80a0b65b0be64fe0dc0d7816f1f738895458 (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.hs | 5 |
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) | |||
184 | type Sq n = L n n | 183 | type Sq n = L n n |
185 | --type CSq n = CL n n | 184 | --type CSq n = CL n n |
186 | 185 | ||
187 | type GL = (KnownNat n, KnownNat m) => L m n | 186 | type GL = forall n m . (KnownNat n, KnownNat m) => L m n |
188 | type GSq = KnownNat n => Sq n | 187 | type GSq = forall n . KnownNat n => Sq n |
189 | 188 | ||
190 | isKonst :: forall m n . (KnownNat m, KnownNat n) => L m n -> Maybe (ℝ,(Int,Int)) | 189 | isKonst :: forall m n . (KnownNat m, KnownNat n) => L m n -> Maybe (ℝ,(Int,Int)) |
191 | isKonst s@(unwrap -> x) | 190 | isKonst s@(unwrap -> x) |