732fdc9 · hakyll · git.iko.soy

git.iko.soy/hakyll

Fixed indexUrl error with html pages.

commit732fdc9894fe8002c91b309ba8aeafc99e9f5be3 authorJasper Van der Jeugt <jaspervdj@gmail.com> dateTue 2 Feb 2010, 14:07 (17 years ago) parentc4b1fd5

2 files changed+3

compare with master

unifiedsplit

src/Text/Hakyll/File.hs+2 src/Text/Hakyll/Page.hs+1

src/Text/Hakyll/File.hs+2

@@ -78,6 +78,8 @@ toUrl path = do enableIndexUrl' <- askHakyll enableIndexUrl

7878 , ".text"

7979 , ".tex"

8080 , ".lhs"

81+ , ".htm"

82+ , ".html"

8183 ]

8284 isIndex = (dropExtension $ takeFileName path) == "index"

8385 withSimpleHtmlExtension = flip addExtension ".html" $ dropExtension path

src/Text/Hakyll/Page.hs+1

@@ -67,6 +67,7 @@ writerOptions = defaultWriterOptions

6767-- | Get a render function for a given extension.

6868getRenderFunction :: String -> (String -> String)

6969getRenderFunction ".html" = id

70+getRenderFunction ".htm" = id

7071getRenderFunction ext = writeHtmlString writerOptions

7172 . readFunction ext (readOptions ext)

7273 where