1 files changed, 0 insertions, 74 deletions
diff --git a/src/Hakyll/Web/Pandoc/FileType.hs b/src/Hakyll/Web/Pandoc/FileType.hs
deleted file mode 100644
index 3636e41..0000000
--- a/src/Hakyll/Web/Pandoc/FileType.hs
+++ /dev/null
@@ -1,74 +0,0 @@
---------------------------------------------------------------------------------
--- | A module dealing with pandoc file extensions and associated file types
-module Hakyll.Web.Pandoc.FileType
-    ( FileType (..)
-    , fileType
-    , itemFileType
-    ) where
-
-
---------------------------------------------------------------------------------
-import           System.FilePath        (splitExtension)
-
-
---------------------------------------------------------------------------------
-import           Hakyll.Core.Identifier
-import           Hakyll.Core.Item
-
-
---------------------------------------------------------------------------------
--- | Datatype to represent the different file types Hakyll can deal with by
--- default
-data FileType
-    = Binary
-    | Css
-    | DocBook
-    | Html
-    | LaTeX
-    | LiterateHaskell FileType
-    | Markdown
-    | MediaWiki
-    | OrgMode
-    | PlainText
-    | Rst
-    | Textile
-    deriving (Eq, Ord, Show, Read)
-
-
---------------------------------------------------------------------------------
--- | Get the file type for a certain file. The type is determined by extension.
-fileType :: FilePath -> FileType
-fileType = uncurry fileType' . splitExtension
-  where
-    fileType' _ ".css"       = Css
-    fileType' _ ".dbk"       = DocBook
-    fileType' _ ".htm"       = Html
-    fileType' _ ".html"      = Html
-    fileType' f ".lhs"       = LiterateHaskell $ case fileType f of
-        -- If no extension is given, default to Markdown + LiterateHaskell
-        Binary -> Markdown
-        -- Otherwise, LaTeX + LiterateHaskell or whatever the user specified
-        x      -> x
-    fileType' _ ".markdown"  = Markdown
-    fileType' _ ".mediawiki" = MediaWiki
-    fileType' _ ".md"        = Markdown
-    fileType' _ ".mdn"       = Markdown
-    fileType' _ ".mdown"     = Markdown
-    fileType' _ ".mdwn"      = Markdown
-    fileType' _ ".mkd"       = Markdown
-    fileType' _ ".mkdwn"     = Markdown
-    fileType' _ ".org"       = OrgMode
-    fileType' _ ".page"      = Markdown
-    fileType' _ ".rst"       = Rst
-    fileType' _ ".tex"       = LaTeX
-    fileType' _ ".text"      = PlainText
-    fileType' _ ".textile"   = Textile
-    fileType' _ ".txt"       = PlainText
-    fileType' _ ".wiki"      = MediaWiki
-    fileType' _ _            = Binary  -- Treat unknown files as binary
-
-
---------------------------------------------------------------------------------
--- | Get the file type for the current file
-itemFileType :: Item a -> FileType
-itemFileType = fileType . toFilePath . itemIdentifier