Commit 8c9906c5 authored by Ben Gamari's avatar Ben Gamari 🐢
Browse files

testsuite: Semigroup/Monoid compat for T3001-2

parent 03024395
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
module Main (main) where module Main (main) where
import Data.Monoid import Data.Semigroup
import Data.ByteString.Internal (inlinePerformIO) import Data.ByteString.Internal (inlinePerformIO)
...@@ -284,6 +284,9 @@ flush = Builder $ \ k buf@(Buffer p o u l) -> ...@@ -284,6 +284,9 @@ flush = Builder $ \ k buf@(Buffer p o u l) ->
emptyBuilder :: Builder emptyBuilder :: Builder
emptyBuilder = Builder id emptyBuilder = Builder id
instance Semigroup Builder where
(<>) = append
instance Monoid Builder where instance Monoid Builder where
mempty = emptyBuilder mempty = emptyBuilder
mappend = append mappend = append
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment