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 :: (MonadIO m, MonadFail m) => BlogPost -> m Text
|
||||||
genGemini bp = do
|
genGemini bp = do
|
||||||
eitherAscii <- liftIO $ Pandoc.runIO $ Writers.writePlain def (postBody bp)
|
eitherMd <- liftIO $ Pandoc.runIO $ Writers.writeMarkdown def (postBody bp)
|
||||||
case eitherAscii of
|
case eitherMd of
|
||||||
Left _ -> fail "BAD"
|
Left _ -> fail "BAD"
|
||||||
Right innerAscii -> return innerAscii
|
Right innerMd -> return innerMd
|
||||||
|
|
||||||
genGeminiAction
|
genGeminiAction
|
||||||
:: (FilePath -> Action BlogPost)
|
:: (FilePath -> Action BlogPost)
|
||||||
|
|
Loading…
Reference in a new issue