diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-05-27 21:21:26 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-05-27 21:21:26 -0700 |
| commit | d9e5d9fe068931a7244a6b72e33c4a7dbacbe7ef (patch) | |
| tree | bb13ca07f5624ba6420148b17f4bfe635d30c387 /trypandoc | |
| parent | 38c02f698521131ea4d276a5d635327c72427b3f (diff) | |
More fixes to trypandoc.
Diffstat (limited to 'trypandoc')
| -rw-r--r-- | trypandoc/trypandoc.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/trypandoc/trypandoc.hs b/trypandoc/trypandoc.hs index ef4d27492..8f1b3278e 100644 --- a/trypandoc/trypandoc.hs +++ b/trypandoc/trypandoc.hs @@ -8,6 +8,7 @@ import Network.HTTP.Types.Status (status200) import Network.HTTP.Types.Header (hContentType) import Network.HTTP.Types.URI (queryToQueryText) import Text.Pandoc +import Text.Pandoc.Error (PandocError) import Text.Pandoc.Shared (tabFilter) import Text.Highlighting.Kate (pygments) import Data.Aeson @@ -57,7 +58,7 @@ readerOpts :: ReaderOptions readerOpts = def { readerParseRaw = True, readerSmart = True } -fromFormats :: [(Text, String -> Pandoc)] +fromFormats :: [(Text, String -> Either PandocError Pandoc)] fromFormats = [ ("native" , readNative) ,("json" , Text.Pandoc.readJSON readerOpts) |