diff options
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 |