summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--hakyll.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/hakyll.hs b/hakyll.hs
index a1d9bf5..20ecda6 100644
--- a/hakyll.hs
+++ b/hakyll.hs
@@ -53,10 +53,8 @@ main = hakyll $ do
>>> paginatePosts
match "posts/*" $ compile $ pageCompiler
- >>> (id &&& getIdentifier)
- >>> setFieldA "path" (arr $ fromMaybe "" . runRoutes (setExtension ".html"))
>>> (id &&& arr (getField "path"))
- >>> setFieldA "url" (arr toUrl)
+ >>> setFieldA "url" (arr (Identifier postGroup) >>> getRouteFor >>> arr (fromMaybe "" . fmap toUrl))
-- Tags
create "tags" $