diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-03-29 12:37:15 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-03-29 12:37:15 +0200 |
| commit | 2c094ba80b1fa06fc60602a25acdf68af28a1682 (patch) | |
| tree | 01b0c4f05047886254d1b1871a575511b6a9cce2 /src/Hakyll | |
| parent | 13ec906b5f73511fa81e966a544a59af434064ed (diff) | |
| download | hakyll-2c094ba80b1fa06fc60602a25acdf68af28a1682.tar.gz | |
Add textile support
Diffstat (limited to 'src/Hakyll')
| -rw-r--r-- | src/Hakyll/Web/Pandoc.hs | 1 | ||||
| -rw-r--r-- | src/Hakyll/Web/Pandoc/FileType.hs | 2 |
2 files changed, 3 insertions, 0 deletions
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 |