diff --git a/hyakko.cabal b/hyakko.cabal
--- a/hyakko.cabal
+++ b/hyakko.cabal
@@ -1,5 +1,5 @@
 name:             hyakko
-version:          0.2.0
+version:          0.2.1
 cabal-version:    >= 1.6
 build-type:       Simple
 license:          MIT
@@ -20,6 +20,8 @@
                   -- HTML template and CSS sytle
                   resources/hyakko.html
                   resources/hyakko.css
+extra-source-files:
+                  src/Text/Markdown.hs
 
 source-repository head
   type:           git
diff --git a/src/Text/Markdown.hs b/src/Text/Markdown.hs
new file mode 100644
--- /dev/null
+++ b/src/Text/Markdown.hs
@@ -0,0 +1,15 @@
+module Text.Markdown (toHTML) where
+
+import Text.Pandoc
+  ( readMarkdown
+  , writeHtmlString
+  , defaultParserState
+  , defaultWriterOptions
+  )
+
+-- Function for translating Markdown to HTML since `Pandoc` has several
+-- different generators for other markup languages.
+toHTML :: String -> String
+toHTML = writeHtmlString defaultWriterOptions . parse
+  where parse = readMarkdown defaultParserState
+{-# INLINE toHTML #-}