@@ -25,6 +25,7 @@ data FileType
26 | PlainText
26 | PlainText
28 deriving (Eq, Ord, Show, Read)
29 deriving (Eq, Ord, Show, Read)
30-- | Get the file type for a certain file. The type is determined by extension.
31-- | Get the file type for a certain file. The type is determined by extension.
@@ -48,6 +49,7 @@ fileType = fileType' . takeExtension
48 fileType' ".rst" = Rst
49 fileType' ".rst" = Rst
49 fileType' ".tex" = LaTeX
50 fileType' ".tex" = LaTeX
50 fileType' ".text" = PlainText
51 fileType' ".text" = PlainText
52+ fileType' ".textile" = Textile
51 fileType' ".txt" = PlainText
53 fileType' ".txt" = PlainText
52 fileType' _ = Binary -- Treat unknown files as binary
54 fileType' _ = Binary -- Treat unknown files as binary