Fix more warnings

Author: snoyberg

Data/Streaming/ByteString/Builder/Class.hs

@@ -34,7 +34,7 @@ instance StreamingBuilder Blaze.ByteString.Builder.Builder where
 --
 -- Since 0.1.10.0
 --
-class Monoid b => StreamingBuilder b where
+class Data.Monoid.Monoid b => StreamingBuilder b where
     newBuilderRecv :: BufferAllocStrategy -> IO (b -> IO BuilderPopper, BuilderFinish)
     builderFlush   :: b
 

Data/Streaming/Process.hs

@@ -31,7 +31,7 @@ module Data.Streaming.Process
     , module System.Process
     ) where
 
-import           Control.Applicative             ((<$>), (<*>))
+import           Control.Applicative             as A ((<$>), (<*>))
 import           Control.Concurrent              (forkIOWithUnmask)
 import           Control.Concurrent.STM          (STM, TMVar, atomically,
                                                   newEmptyTMVar, putTMVar,
@@ -176,8 +176,8 @@ streamingProcess cp = liftIO $ do
             mclose = maybe (return ()) hClose
 
     (,,,)
-        <$> getStdin stdinH
-        <*> getStdout stdoutH
+      A.<$> getStdin stdinH
+      A.<*> getStdout stdoutH
         <*> getStderr stderrH
         <*> return (StreamingProcessHandle ph ec close)
 

bench/builder-to-bytestring-io.hs

@@ -3,7 +3,7 @@
 import Gauge.Main
 import qualified Data.ByteString.Char8 as S
 import qualified Data.ByteString.Builder as BB
-import Data.Monoid (mconcat, Monoid)
+import Data.Monoid
 import qualified Data.Streaming.ByteString.Builder as BB
 
 main :: IO ()
@@ -25,5 +25,5 @@ main = defaultMain [ bgroup "Data.Streaming.ByteString.Builder.toByteStringIO"
     b100_10000 = bld BB.byteString 100 10000
     b10000_100 = bld BB.byteString 10000 100
     b10000_10000 = bld BB.byteString 10000 10000
-    bld :: Monoid a => (S.ByteString -> a) -> Int -> Int -> a
+    bld :: Data.Monoid.Monoid a => (S.ByteString -> a) -> Int -> Int -> a
     bld f len reps = mconcat (replicate reps (f (S.replicate len 'x')))