yaml-unscrambler-0.1.0.7: library/YamlUnscrambler/Util/Text.hs

module YamlUnscrambler.Util.Text where

import qualified Attoparsec.Data as Atto
import qualified Data.Attoparsec.Text as Atto
import YamlUnscrambler.Prelude

deshowIfPossible :: Text -> Text
deshowIfPossible a =
  either (const a) id (deshow a)

deshow :: Text -> Either Text Text
deshow =
  first fromString . Atto.parseOnly parser
  where
    parser =
      Atto.show <* Atto.endOfInput