@@ -40,10 +40,9 @@ import Data.Data
4040import Control.Monad.IO.Class
4141import Control.Monad.Trans.Class (lift)
4242
43−import Control.Exception (throwIO, Exception)
43+import Control.Exception (throwIO, Exception, finally)
4444import Data.Enumerator
4545import Control.Applicative
46−import "MonadCatchIO-transformers" Control.Monad.CatchIO (MonadCatchIO, finally)
4746
4847data Event =
4948 EventStreamStart
@@ -456,7 +455,7 @@ newtype ToEventRawException = ToEventRawException CInt
456455 deriving (Show, Typeable)
457456instance Exception ToEventRawException
458457
459−decode :: MonadCatchIO m => B.ByteString -> Enumerator Event m a
458+decode :: MonadIO m => B.ByteString -> Enumerator Event m a
460459decode bs i = do
461460 fp <- liftIO $ mallocForeignPtrBytes parserSize
462461 res <- liftIO $ withForeignPtr fp c_yaml_parser_initialize