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 +
 src/Hakyll/Web/Pandoc/FileType.hs | 2 ++
 2 files changed, 3 insertions(+)

(limited to 'src/Hakyll/Web')

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')
diff --git a/src/Hakyll/Web/Pandoc/FileType.hs b/src/Hakyll/Web/Pandoc/FileType.hs
index a10de1c..bde0e4e 100644
--- a/src/Hakyll/Web/Pandoc/FileType.hs
+++ b/src/Hakyll/Web/Pandoc/FileType.hs
@@ -25,6 +25,7 @@ data FileType
     | OrgMode
     | PlainText
     | Rst
+    | Textile
     deriving (Eq, Ord, Show, Read)
 
 -- | Get the file type for a certain file. The type is determined by extension.
@@ -48,6 +49,7 @@ fileType = fileType' . takeExtension
     fileType' ".rst"      = Rst
     fileType' ".tex"      = LaTeX
     fileType' ".text"     = PlainText
+    fileType' ".textile"  = Textile
     fileType' ".txt"      = PlainText
     fileType' _           = Binary  -- Treat unknown files as binary
 
-- 
cgit v1.2.3