@@ -36,27 +36,27 @@ data FileType
3636--------------------------------------------------------------------------------
3737-- | Get the file type for a certain file. The type is determined by extension.
3838fileType :: FilePath -> FileType
39−fileType = fileType' . takeExtension
39+fileType = uncurry fileType' . splitExtension
4040 where
41− fileType' ".css" = Css
42− fileType' ".htm" = Html
43− fileType' ".html" = Html
44− fileType' ".lhs" = LiterateHaskell Markdown
45− fileType' ".markdown" = Markdown
46− fileType' ".md" = Markdown
47− fileType' ".mdn" = Markdown
48− fileType' ".mdown" = Markdown
49− fileType' ".mdwn" = Markdown
50− fileType' ".mkd" = Markdown
51− fileType' ".mkdwn" = Markdown
52− fileType' ".org" = OrgMode
53− fileType' ".page" = Markdown
54− fileType' ".rst" = Rst
55− fileType' ".tex" = LaTeX
56− fileType' ".text" = PlainText
57− fileType' ".textile" = Textile
58− fileType' ".txt" = PlainText
59− fileType' _ = Binary -- Treat unknown files as binary
41+ fileType' _ ".css" = Css
42+ fileType' _ ".htm" = Html
43+ fileType' _ ".html" = Html
44+ fileType' f ".lhs" = LiterateHaskell (fileType' (takeExtension f))
45+ fileType' _ ".markdown" = Markdown
46+ fileType' _ ".md" = Markdown
47+ fileType' _ ".mdn" = Markdown
48+ fileType' _ ".mdown" = Markdown
49+ fileType' _ ".mdwn" = Markdown
50+ fileType' _ ".mkd" = Markdown
51+ fileType' _ ".mkdwn" = Markdown
52+ fileType' _ ".org" = OrgMode
53+ fileType' _ ".page" = Markdown
54+ fileType' _ ".rst" = Rst
55+ fileType' _ ".tex" = LaTeX
56+ fileType' _ ".text" = PlainText
57+ fileType' _ ".textile" = Textile
58+ fileType' _ ".txt" = PlainText
59+ fileType' _ _ = Binary -- Treat unknown files as binary
6060
6161
6262--------------------------------------------------------------------------------