Add markdown response support

src/Core/Rendering.hs

@@ -20,6 +20,9 @@ mdToLucid cmtextinput = case (commonmark "" cmtextinput) of
 mdFileToLucid :: FilePath -> IO (LU.Html ())
 mdFileToLucid path = fmap (mdToLucid . decodeUtf8) (B.readFile path)
 
+mdFileToMarkdown :: FilePath -> IO Text
+mdFileToMarkdown path = fmap decodeUtf8 (B.readFile path)
+
 mdFileToText :: FilePath -> IO (Text)
 mdFileToText path = do
   htmlContent <- mdFileToLucid path