From 96169135bc7d75138ab8bedfb8f6a6030bbc3571 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Sat, 2 Jun 2012 09:19:47 +0200 Subject: Get rid of the last route redundancies --- hakyll.hs | 4 +--- 1 file changed, 1 insertion(+), 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" $ -- cgit v1.2.3