@@ -23,7 +23,7 @@ data FileType
23 | ReStructuredText
23 | ReStructuredText
24 | PlainText
24 | PlainText
26− | UnknownFileType
26+ | Binary
27 deriving (Eq, Ord, Show, Read)
27 deriving (Eq, Ord, Show, Read)
29-- | Get the file type for a certain file. The type is determined by extension.
29-- | Get the file type for a certain file. The type is determined by extension.
@@ -47,7 +47,7 @@ fileType = fileType' . takeExtension
47 fileType' ".text" = PlainText
47 fileType' ".text" = PlainText
48 fileType' ".txt" = PlainText
48 fileType' ".txt" = PlainText
49 fileType' ".css" = Css
49 fileType' ".css" = Css
50− fileType' _ = UnknownFileType
50+ fileType' _ = Binary -- Treat unknown files as binary
52-- | Get the file type for the current file
52-- | Get the file type for the current file