summaryrefslogtreecommitdiff
path: root/packages/base/src/Internal/Container.hs
diff options
context:
space:
mode:
authorHiromi ISHII <konn.jinro@gmail.com>2017-12-25 20:23:13 +0900
committerHiromi ISHII <konn.jinro@gmail.com>2017-12-25 20:23:13 +0900
commite83e2023da77ecaa9aaba15bc9bd48757f73b3a9 (patch)
treef7aae740fa7129c4641cf05a9e00260e48cd92bb /packages/base/src/Internal/Container.hs
parent87c7682bbfd17308749d5e9568f1ffa25390ce79 (diff)
Workaround for GHC-8.4.x
* Adds missing Semigroup instances * Adds `semigroups` to the deps of `hmatrix` * Hides conflicting names from import list with base >= 4.11 * `(Prelude.<>)` and `GHC.TypeNats.Mod`
Diffstat (limited to 'packages/base/src/Internal/Container.hs')
-rw-r--r--packages/base/src/Internal/Container.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/packages/base/src/Internal/Container.hs b/packages/base/src/Internal/Container.hs
index b379530..1520489 100644
--- a/packages/base/src/Internal/Container.hs
+++ b/packages/base/src/Internal/Container.hs
@@ -1,3 +1,4 @@
1{-# LANGUAGE CPP #-}
1{-# LANGUAGE FlexibleContexts #-} 2{-# LANGUAGE FlexibleContexts #-}
2{-# LANGUAGE FlexibleInstances #-} 3{-# LANGUAGE FlexibleInstances #-}
3{-# LANGUAGE MultiParamTypeClasses #-} 4{-# LANGUAGE MultiParamTypeClasses #-}
@@ -29,7 +30,9 @@ import Internal.Matrix
29import Internal.Element 30import Internal.Element
30import Internal.Numeric 31import Internal.Numeric
31import Internal.Algorithms(Field,linearSolveSVD,Herm,mTm) 32import Internal.Algorithms(Field,linearSolveSVD,Herm,mTm)
32 33#if MIN_VERSION_base(4,11,0)
34import Prelude hiding ((<>))
35#endif
33------------------------------------------------------------------ 36------------------------------------------------------------------
34 37
35{- | Creates a real vector containing a range of values: 38{- | Creates a real vector containing a range of values: