@@ -40,10 +40,9 @@ import Data.Data
40import Control.Monad.IO.Class
40import Control.Monad.IO.Class
41import Control.Monad.Trans.Class (lift)
41import Control.Monad.Trans.Class (lift)
43−import Control.Exception (throwIO, Exception)
43+import Control.Exception (throwIO, Exception, finally)
44import Data.Enumerator
44import Data.Enumerator
45import Control.Applicative
45import Control.Applicative
46−import "MonadCatchIO-transformers" Control.Monad.CatchIO (MonadCatchIO, finally)
48data Event =
47data Event =
49 EventStreamStart
48 EventStreamStart
@@ -456,7 +455,7 @@ newtype ToEventRawException = ToEventRawException CInt
456 deriving (Show, Typeable)
455 deriving (Show, Typeable)
457instance Exception ToEventRawException
456instance Exception ToEventRawException
459−decode :: MonadCatchIO m => B.ByteString -> Enumerator Event m a
458+decode :: MonadIO m => B.ByteString -> Enumerator Event m a
460decode bs i = do
459decode bs i = do
461 fp <- liftIO $ mallocForeignPtrBytes parserSize
460 fp <- liftIO $ mallocForeignPtrBytes parserSize
462 res <- liftIO $ withForeignPtr fp c_yaml_parser_initialize
461 res <- liftIO $ withForeignPtr fp c_yaml_parser_initialize