-- | A module dealing with pandoc file extensions and associated file types--moduleHakyll.Web.Pandoc.FileType(FileType(..),fileType,getFileType)whereimportSystem.FilePath(takeExtension)importControl.Arrow((>>^))importHakyll.Core.IdentifierimportHakyll.Core.Compiler-- | Datatype to represent the different file types Hakyll can deal with by-- default--dataFileType=Binary|Css|Html|LaTeX|LiterateHaskellFileType|Markdown|OrgMode|PlainText|Rst|Textilederiving(Eq,Ord,Show,Read)-- | Get the file type for a certain file. The type is determined by extension.--fileType::FilePath->FileTypefileType=fileType'.takeExtensionwherefileType'".css"=CssfileType'".htm"=HtmlfileType'".html"=HtmlfileType'".lhs"=LiterateHaskellMarkdownfileType'".markdown"=MarkdownfileType'".md"=MarkdownfileType'".mdn"=MarkdownfileType'".mdown"=MarkdownfileType'".mdwn"=MarkdownfileType'".mkd"=MarkdownfileType'".mkdwn"=MarkdownfileType'".org"=OrgModefileType'".page"=MarkdownfileType'".rst"=RstfileType'".tex"=LaTeXfileType'".text"=PlainTextfileType'".textile"=TextilefileType'".txt"=PlainTextfileType'_=Binary-- Treat unknown files as binary-- | Get the file type for the current file--getFileType::CompileraFileTypegetFileType=getIdentifier>>^fileType.toFilePath