Use markdown temporarily

This commit is contained in:
Yann Esposito (Yogsototh) 2020-11-08 16:52:45 +01:00
parent 3e7ac5dd4b
commit c2be6d02de
Signed by untrusted user who does not match committer: yogsototh
GPG Key ID: 7B19A4C650D59646
1 changed files with 3 additions and 3 deletions

View File

@ -357,10 +357,10 @@ genPdfAction _getPost out = do
genGemini :: (MonadIO m, MonadFail m) => BlogPost -> m Text
genGemini bp = do
eitherAscii <- liftIO $ Pandoc.runIO $ Writers.writePlain def (postBody bp)
case eitherAscii of
eitherMd <- liftIO $ Pandoc.runIO $ Writers.writeMarkdown def (postBody bp)
case eitherMd of
Left _ -> fail "BAD"
Right innerAscii -> return innerAscii
Right innerMd -> return innerMd
genGeminiAction
:: (FilePath -> Action BlogPost)