Use markdown temporarily
This commit is contained in:
parent
3e7ac5dd4b
commit
c2be6d02de
1 changed files with 3 additions and 3 deletions
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue