diff options
author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-12-01 12:13:51 -0500 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:40 +0100 |
commit | 3574b98f81c2c24f7ef31f8251ba88792a2c06f0 (patch) | |
tree | 8bf439b943cf82d260fffd1d627db0608b1ef34f /src/Text/Pandoc.hs | |
parent | 52859b98632e991e94a3d37c0e0ae6c5d3b3fa34 (diff) |
Unify Errors.
Diffstat (limited to 'src/Text/Pandoc.hs')
-rw-r--r-- | src/Text/Pandoc.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs index a49d52e25..036d3cdf5 100644 --- a/src/Text/Pandoc.hs +++ b/src/Text/Pandoc.hs @@ -180,7 +180,7 @@ import Text.Pandoc.Templates import Text.Pandoc.Options import Text.Pandoc.Shared (safeRead, mapLeft, pandocVersion) import Text.Pandoc.Error -import Text.Pandoc.Class (PandocMonad, runIOorExplode, PandocExecutionError(..)) +import Text.Pandoc.Class (PandocMonad, runIOorExplode) import Data.Aeson import qualified Data.ByteString.Lazy as BL import Data.List (intercalate) @@ -387,7 +387,7 @@ class ToJSONFilter a => ToJsonFilter a toJsonFilter = toJSONFilter readJSON :: ReaderOptions -> String -> Either PandocError Pandoc -readJSON _ = mapLeft ParseFailure . eitherDecode' . UTF8.fromStringLazy +readJSON _ = mapLeft PandocParseError . eitherDecode' . UTF8.fromStringLazy writeJSON :: WriterOptions -> Pandoc -> String writeJSON _ = UTF8.toStringLazy . encode |