@@ -8,6 +8,7 @@ import Network.HTTP.Types.Status (status200)
88import Network.HTTP.Types.Header (hContentType)
99import Network.HTTP.Types.URI (queryToQueryText)
1010import Text.Pandoc
11+import Text.Pandoc.Error (PandocError)
1112import Text.Pandoc.Shared (tabFilter)
1213import Text.Highlighting.Kate (pygments)
1314import Data.Aeson
@@ -57,7 +58,7 @@ readerOpts :: ReaderOptions
5758readerOpts = def { readerParseRaw = True,
5859 readerSmart = True }
5960
60−fromFormats :: [(Text, String -> Pandoc)]
61+fromFormats :: [(Text, String -> Either PandocError Pandoc)]
6162fromFormats = [
6263 ("native" , readNative)
6364 ,("json" , Text.Pandoc.readJSON readerOpts)