@@ -12,7 +12,7 @@ import Control.Monad.IO.Class
1212import Data.Bits
1313import qualified Data.ByteString.Lazy as BS
1414import qualified Data.ByteString as BSS
15−import Data.Conduit (ConduitT, yield)
15+import Data.Conduit (ConduitM, yield)
1616import qualified Data.Conduit.Binary as CB
1717import Data.Monoid ((<>))
1818import qualified Data.Text as T
@@ -134,7 +134,7 @@ inclusionCheck :: FilePath -> [InclusionPattern] -> Bool
134134inclusionCheck f ps = any id (map (\(InclusionPattern p) -> f ~~ T.unpack p) ps)
135135
136136
137−processLog :: Monad m => ConduitT BSS.ByteString BSS.ByteString m ()
137+processLog :: Monad m => ConduitM BSS.ByteString BSS.ByteString m ()
138138processLog = do
139139 -- metadata (is the next string stdout or stderr)
140140 _ <- CB.take 4