yaml-unscrambler-0.1: library/YamlUnscrambler/Util/Yaml.hs

module YamlUnscrambler.Util.Yaml
where

import YamlUnscrambler.Prelude
import qualified Conduit
import qualified Data.Yaml as Yaml
import qualified Data.Yaml.Parser as YamlParser
import qualified Data.Text.Encoding as Text
import qualified Text.Libyaml as Libyaml


parseByteStringToRawDoc :: ByteString -> Either Text YamlParser.RawDoc
parseByteStringToRawDoc input =
  first showAsText $
  unsafePerformIO $
  try @SomeException $
  Conduit.runConduitRes $
  Conduit.fuse (Libyaml.decode input) (YamlParser.sinkRawDoc)