opensource/pandoc
3
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-24 15:44:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

Use decodeEither' not decodeEither (deprecated).

Browse Source
This commit is contained in:
John MacFarlane
2018-06-29 11:47:58 +02:00
parent 904924d172
commit 6ed114cb5d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/App.hs
+2 -2
View File
@@ -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