diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-06-29 11:47:58 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-06-29 11:47:58 +0200 |
| commit | 6ed114cb5d34641253c8be0079bfc4a3bf906af4 (patch) | |
| tree | de3b6117e88770cc01e9fdb7d610bb2a554596d7 | |
| parent | 904924d172d2fced32a96aa1d022d47a0fb59cd6 (diff) | |
| download | pandoc-6ed114cb5d34641253c8be0079bfc4a3bf906af4.tar.gz | |
Use decodeEither' not decodeEither (deprecated).
| -rw-r--r-- | src/Text/Pandoc/App.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs index f2b7ab7a3..5cbbe13e7 100644 --- a/src/Text/Pandoc/App.hs +++ b/src/Text/Pandoc/App.hs @@ -62,7 +62,7 @@ import qualified Data.Text as T import qualified Data.Text.Lazy as TL import qualified Data.Text.Lazy.Encoding as TE import qualified Data.Text.Encoding.Error as TE -import Data.Yaml (decodeEither) +import Data.Yaml (decodeEither') import qualified Data.Yaml as Yaml import GHC.Generics import Network.URI (URI (..), parseURI) @@ -702,7 +702,7 @@ removeMetaKeys :: [(String,String)] -> Pandoc -> Pandoc removeMetaKeys kvs pdc = foldr (deleteMeta . fst) pdc kvs readMetaValue :: String -> MetaValue -readMetaValue s = case decodeEither (UTF8.fromString s) of +readMetaValue s = case decodeEither' (UTF8.fromString s) of Right (Yaml.String t) -> MetaString $ T.unpack t Right (Yaml.Bool b) -> MetaBool b _ -> MetaString s |