diff options
Diffstat (limited to 'testsuite/tests/profiling/should_run/T3001-2.hs')
-rw-r--r-- | testsuite/tests/profiling/should_run/T3001-2.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/testsuite/tests/profiling/should_run/T3001-2.hs b/testsuite/tests/profiling/should_run/T3001-2.hs index 5a84dcc69d..17fa0c9c48 100644 --- a/testsuite/tests/profiling/should_run/T3001-2.hs +++ b/testsuite/tests/profiling/should_run/T3001-2.hs @@ -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 |