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 @@
module Main (main) where
import Data.Monoid
import Data.Semigroup
import Data.ByteString.Internal (inlinePerformIO)
......@@ -284,6 +284,9 @@ flush = Builder $ \ k buf@(Buffer p o u l) ->
emptyBuilder :: Builder
emptyBuilder = Builder id
instance Semigroup Builder where
(<>) = append
instance Monoid Builder where
mempty = emptyBuilder
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