From e1aa9600993363eec55425bc05cb9813b9054f91 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Fri, 31 Dec 2010 16:15:57 +0100 Subject: Add Hakyll.Web module --- src/Hakyll/Web/Page.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Hakyll/Web') diff --git a/src/Hakyll/Web/Page.hs b/src/Hakyll/Web/Page.hs index 6fed202..9294231 100644 --- a/src/Hakyll/Web/Page.hs +++ b/src/Hakyll/Web/Page.hs @@ -61,6 +61,6 @@ addDefaultFields = (getRoute &&& id >>^ uncurry addRoute) -- Add title and category, based on identifier addIdentifier i = addField "title" (takeBaseName p) - . addField "category" (takeBaseName $ takeDirectory p) + . addField "category" (takeBaseName $ takeDirectory p) where p = toFilePath i -- cgit v1.2.3