use the URLs without the .html suffix

Geal · Mar 15, 2013 · 062bf24 · 062bf24
1 parent c22bdcb
commit 062bf24
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/site.hs b/site.hs
@@ -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