testsuite: Semigroup/Monoid compat for T3001-2

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