Added `.txt` support, tests update.

- Pure text files are now supported.
- We now hide the Internal modules.
- Tests should be run through ghci.
- Added testing of page reading.

2 files changed, 4 insertions, 0 deletions

diff --git a/src/Text/Hakyll/Internal/FileType.hs b/src/Text/Hakyll/Internal/FileType.hs
index e3a73cd..e762e9a 100644
--- a/src/Text/Hakyll/Internal/FileType.hs
+++ b/src/Text/Hakyll/Internal/FileType.hs
@@ -14,6 +14,7 @@ data FileType = Html
               | LiterateHaskellMarkdown
               | Markdown
               | ReStructuredText
+              | Text
               | UnknownFileType
               deriving (Eq, Ord, Show, Read)
 
@@ -33,6 +34,8 @@ getFileType = getFileType' . takeExtension
     getFileType' ".mkdwn"    = Markdown
     getFileType' ".rst"      = ReStructuredText
     getFileType' ".tex"      = LaTeX
+    getFileType' ".text"     = Text
+    getFileType' ".txt"      = Text
     getFileType' _           = UnknownFileType
 
 -- | Check if a certain @FileType@ is renderable.
diff --git a/src/Text/Hakyll/Internal/Page.hs b/src/Text/Hakyll/Internal/Page.hs
index 8500693..8f1b9d6 100644
--- a/src/Text/Hakyll/Internal/Page.hs
+++ b/src/Text/Hakyll/Internal/Page.hs
@@ -38,6 +38,7 @@ writerOptions = defaultWriterOptions
 -- | Get a render function for a given extension.
 getRenderFunction :: FileType -> (String -> String)
 getRenderFunction Html     = id
+getRenderFunction Text     = id
 getRenderFunction fileType = writeHtmlString writerOptions
                            . readFunction fileType (readOptions fileType)
   where