diff options
| -rw-r--r-- | src/Text/Pandoc/App.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs index d1047c3cf..cdc0c52fc 100644 --- a/src/Text/Pandoc/App.hs +++ b/src/Text/Pandoc/App.hs @@ -166,7 +166,9 @@ convertWithOpts opts = do -- disabling the custom writer for now writer <- if ".lua" `isSuffixOf` format -- note: use non-lowercased version writerName - then error "custom writers disabled for now" + then return (StringWriter + (\o d -> liftIO $ writeCustom writerName o d) + :: Writer PandocIO) else case getWriter writerName of Left e -> err 9 $ if format == "pdf" |