Get rid of the last route redundanciesHEADmaster

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" $