summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2012-06-02 09:19:47 +0200
committerMatthias Schiffer <mschiffer@universe-factory.net>2012-06-02 09:19:47 +0200
commit96169135bc7d75138ab8bedfb8f6a6030bbc3571 (patch)
tree6a6e96be4ead8a8b4c0e987d679ceee44700e449
parent2b3e4156bb8940239e6560bddb6bcd6e2fb2588b (diff)
downloadblog.universe-factory.net-master.tar
blog.universe-factory.net-master.zip
Get rid of the last route redundanciesHEADmaster
-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" $