aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-06-29 11:47:58 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2018-06-29 11:47:58 +0200
commit6ed114cb5d34641253c8be0079bfc4a3bf906af4 (patch)
treede3b6117e88770cc01e9fdb7d610bb2a554596d7
parent904924d172d2fced32a96aa1d022d47a0fb59cd6 (diff)
downloadpandoc-6ed114cb5d34641253c8be0079bfc4a3bf906af4.tar.gz
Use decodeEither' not decodeEither (deprecated).
-rw-r--r--src/Text/Pandoc/App.hs4
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