diff options
| author | Joshua Simmons <joshua.simmons@emptypath.com> | 2015-03-23 10:08:45 -0700 |
|---|---|---|
| committer | Joshua Simmons <joshua.simmons@emptypath.com> | 2015-03-23 10:08:45 -0700 |
| commit | 6a4b09e1c2c06f4dcd30c4ecd7bcb60462c95a2e (patch) | |
| tree | 4a28b858843e1de043ed758d9e1728111979d73c /src/Hakyll/Web/Pandoc | |
| parent | 46afe343fcb791d5ea1eee03c7b3f3f43c23ee07 (diff) | |
| download | hakyll-6a4b09e1c2c06f4dcd30c4ecd7bcb60462c95a2e.tar.gz | |
let pandoc handle DocBook files
Diffstat (limited to 'src/Hakyll/Web/Pandoc')
| -rw-r--r-- | src/Hakyll/Web/Pandoc/FileType.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Hakyll/Web/Pandoc/FileType.hs b/src/Hakyll/Web/Pandoc/FileType.hs index 46c8e24..a6d0dbd 100644 --- a/src/Hakyll/Web/Pandoc/FileType.hs +++ b/src/Hakyll/Web/Pandoc/FileType.hs @@ -22,6 +22,7 @@ import Hakyll.Core.Item data FileType = Binary | Css + | DocBook | Html | LaTeX | LiterateHaskell FileType @@ -39,6 +40,8 @@ fileType :: FilePath -> FileType fileType = uncurry fileType' . splitExtension where fileType' _ ".css" = Css + fileType' _ ".docbook" = DocBook + fileType' _ ".db" = DocBook fileType' _ ".htm" = Html fileType' _ ".html" = Html fileType' f ".lhs" = LiterateHaskell $ case fileType f of |