906eb68 · typeable/yaml

git.iko.soy/typeable/yaml

on master help sign in

Exporting YamlException

906eb68Michael Snoyman16 years ago

Text/Libyaml.hs+4−3

@@ -21,6 +21,8 @@ module Text.Libyaml

21 , decode

22 , encodeFile

23 , decodeFile

24+ -- * Exception

25+ , YamlException (..)

24 ) where

26 ) where

26import qualified Data.ByteString.Internal as B

28import qualified Data.ByteString.Internal as B

@@ -470,8 +472,7 @@ decode bs i = do

470 liftIO $ withForeignPtr fp c_yaml_parser_delete -- FIXME finally

472 liftIO $ withForeignPtr fp c_yaml_parser_delete -- FIXME finally

471 return a

473 return a

472

474

473−-- FIXME decodeFile :: MonadCatchIO m => FilePath -> Enumerator Event m a

475+decodeFile :: MonadIO m => FilePath -> Enumerator Event m a

474−decodeFile :: FilePath -> Enumerator Event IO a

475decodeFile file i = do

476decodeFile file i = do

476 fp <- liftIO $ mallocForeignPtrBytes parserSize

477 fp <- liftIO $ mallocForeignPtrBytes parserSize

477 res <- liftIO $ withForeignPtr fp c_yaml_parser_initialize

478 res <- liftIO $ withForeignPtr fp c_yaml_parser_initialize

@@ -496,7 +497,7 @@ decodeFile file i = do

496 liftIO $ withForeignPtr fp c_yaml_parser_delete -- FIXME finally

497 liftIO $ withForeignPtr fp c_yaml_parser_delete -- FIXME finally

497 return a

498 return a

498

499

499−runParser :: MonadCatchIO m

500+runParser :: MonadIO m

500 => ForeignPtr ParserStruct

501 => ForeignPtr ParserStruct

501 -> Enumerator Event m a

502 -> Enumerator Event m a

502runParser fp (Continue k) = do

503runParser fp (Continue k) = do