diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-12-14 17:26:43 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-12-18 11:32:30 -0500 |
| commit | 8c9906c5ce3f9ebd6417a1cdbe3e2a007c4cccd0 (patch) | |
| tree | d6fba0ac9ece38d810d988d77fedd737c2a4a4d9 /testsuite | |
| parent | 030243953d522f2f8185ae417869a94d5f86210f (diff) | |
| download | haskell-8c9906c5ce3f9ebd6417a1cdbe3e2a007c4cccd0.tar.gz | |
testsuite: Semigroup/Monoid compat for T3001-2
Diffstat (limited to 'testsuite')
| -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 |