diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Hakyll/File.hs | 2 | ||||
| -rw-r--r-- | src/Text/Hakyll/Page.hs | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/src/Text/Hakyll/File.hs b/src/Text/Hakyll/File.hs index 92f93da..311bd57 100644 --- a/src/Text/Hakyll/File.hs +++ b/src/Text/Hakyll/File.hs @@ -78,6 +78,8 @@ toUrl path = do enableIndexUrl' <- askHakyll enableIndexUrl , ".text" , ".tex" , ".lhs" + , ".htm" + , ".html" ] isIndex = (dropExtension $ takeFileName path) == "index" withSimpleHtmlExtension = flip addExtension ".html" $ dropExtension path diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs index 63c5a40..2a1eae8 100644 --- a/src/Text/Hakyll/Page.hs +++ b/src/Text/Hakyll/Page.hs @@ -67,6 +67,7 @@ writerOptions = defaultWriterOptions -- | Get a render function for a given extension. getRenderFunction :: String -> (String -> String) getRenderFunction ".html" = id +getRenderFunction ".htm" = id getRenderFunction ext = writeHtmlString writerOptions . readFunction ext (readOptions ext) where |