Permalink
Browse files

use the URLs without the .html suffix

  • Loading branch information...
1 parent c22bdcb commit 062bf241209df8850b812b354f5147c85f6a82e9 @Geal committed Mar 15, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 site.hs
View
@@ -155,7 +155,7 @@ getFullUrl root item = do
mbPath <- getRoute.itemIdentifier $ item
let fullUrl = case mbPath of
Nothing -> ""
- Just url -> (root ++) . toUrl $ url
+ Just url -> removeHtmlPrefix . (root ++) . toUrl $ url
return fullUrl
getImageFullUrl :: String -> (Item a) -> Compiler String

0 comments on commit 062bf24

Please sign in to comment.