From 2c094ba80b1fa06fc60602a25acdf68af28a1682 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Thu, 29 Mar 2012 12:37:15 +0200
Subject: Add textile support

---
 src/Hakyll/Web/Pandoc.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Hakyll/Web/Pandoc.hs')

diff --git a/src/Hakyll/Web/Pandoc.hs b/src/Hakyll/Web/Pandoc.hs
index be6b544..8b0e0de 100644
--- a/src/Hakyll/Web/Pandoc.hs
+++ b/src/Hakyll/Web/Pandoc.hs
@@ -55,6 +55,7 @@ readPandocWith state fileType' id' = case fileType' of
         readPandocWith state {stateLiterateHaskell = True} t id'
     Markdown          -> readMarkdown state
     Rst               -> readRST state
+    Textile           -> readTextile state
     t                 -> error $
         "Hakyll.Web.readPandocWith: I don't know how to read a file of the " ++
         "type " ++ show t ++ fromMaybe "" (fmap ((" for: " ++) . show) id')
-- 
cgit v1.2.3