use default monoid (<>) instead of semigroup

2016-11-15 14:57:16 +00:00
parent 7560af0955
commit 82e0b04e4d
1 changed files with 13 additions and 2 deletions
@@ -102,8 +102,19 @@ import Semiring as X
 import Data.Functor.Identity as X

 #if ( __GLASGOW_HASKELL__ >= 800 )
-import Data.Monoid as X hiding ((<>))
-import Data.Semigroup as X ( Semigroup(..) )
+import Data.Monoid as X
+import Data.Semigroup as X (
+    Semigroup(sconcat, stimes)
+  , WrappedMonoid
+  , Option(..)
+  , option
+  , diff
+  , cycle1
+  , stimesMonoid
+  , stimesIdempotent
+  , stimesIdempotentMonoid
+  , mtimesDefault
+  )
 #else
 import Data.Monoid as X
 #endif