6ed114c · typeable/pandoc

git.iko.soy/typeable/pandoc

Use decodeEither' not decodeEither (deprecated).

commit6ed114cb5d34641253c8be0079bfc4a3bf906af4 authorJohn MacFarlane <jgm@berkeley.edu> dateFri 29 Jun 2018, 11:47 (8 years ago) parent904924d

1 file changed+2−2

unifiedsplit

src/Text/Pandoc/App.hs+2−2

@@ -62,7 +62,7 @@ import qualified Data.Text as T

6262import qualified Data.Text.Lazy as TL

6363import qualified Data.Text.Lazy.Encoding as TE

6464import qualified Data.Text.Encoding.Error as TE

65−import Data.Yaml (decodeEither)

65+import Data.Yaml (decodeEither')

6666import qualified Data.Yaml as Yaml

6767import GHC.Generics

6868import Network.URI (URI (..), parseURI)

@@ -702,7 +702,7 @@ removeMetaKeys :: [(String,String)] -> Pandoc -> Pandoc

702702removeMetaKeys kvs pdc = foldr (deleteMeta . fst) pdc kvs

703703

704704readMetaValue :: String -> MetaValue

705−readMetaValue s = case decodeEither (UTF8.fromString s) of

705+readMetaValue s = case decodeEither' (UTF8.fromString s) of

706706 Right (Yaml.String t) -> MetaString $ T.unpack t

707707 Right (Yaml.Bool b) -> MetaBool b

708708 _ -> MetaString s