blob: d992228d2e5c91cd7a662649000df5db87bc1826 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
--- a/enumerator.cabal
+++ b/enumerator.cabal
@@ -152,2 +152,5 @@ library
+ if !impl(ghc >= 8.0)
+ build-depends: semigroups == 0.18.*
+
exposed-modules:
--- a/lib/Data/Enumerator/Internal.hs
+++ b/lib/Data/Enumerator/Internal.hs
@@ -50,2 +50,3 @@ import Data.Function (fix)
import Data.Monoid (Monoid, mempty, mappend, mconcat)
+import qualified Data.Semigroup as S
@@ -73,2 +74,6 @@ instance Monad Stream where
+instance S.Semigroup (Stream a) where
+ (<>) (Chunks xs) (Chunks ys) = Chunks (xs ++ ys)
+ (<>) _ _ = EOF
+
instance Monoid (Stream a) where
|
