From c2be6d02deccad867a09c67c89bbe874b3aae7d2 Mon Sep 17 00:00:00 2001
From: "Yann Esposito (Yogsototh)" <yann.esposito@gmail.com>
Date: Sun, 8 Nov 2020 16:52:45 +0100
Subject: [PATCH] Use markdown temporarily

---
 Shakefile.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Shakefile.hs b/Shakefile.hs
index 8cece16..4e187ba 100644
--- a/Shakefile.hs
+++ b/Shakefile.hs
@@ -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)