summaryrefslogtreecommitdiffstats
path: root/hakyll.hs
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2012-06-01 22:44:27 +0200
committerMatthias Schiffer <mschiffer@universe-factory.net>2012-06-01 22:44:27 +0200
commitd9aa4be1f38c44390997b49bcd02dec966655cdf (patch)
tree62ce16535ceede28537ea6d2be05eba4e34afaa6 /hakyll.hs
parente99ba18f7d9936c51ab3f1aaba1f37f3efbd52d5 (diff)
downloadblog.universe-factory.net-d9aa4be1f38c44390997b49bcd02dec966655cdf.tar
blog.universe-factory.net-d9aa4be1f38c44390997b49bcd02dec966655cdf.zip
Various fixes
Diffstat (limited to 'hakyll.hs')
-rw-r--r--hakyll.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/hakyll.hs b/hakyll.hs
index f5e1045..9ec9225 100644
--- a/hakyll.hs
+++ b/hakyll.hs
@@ -51,7 +51,7 @@ main = hakyll $ do
>>> ((constA () &&& constA "index*") &&& id)
>>> paginatePosts (const "Home")
- match "posts/*" $ compile $ readPageCompiler
+ match "posts/*" $ compile $ pageCompiler
>>> (id &&& getIdentifier)
>>> setFieldA "path" (arr $ fromMaybe "" . runRoutes (setExtension ".html"))
>>> (id &&& arr (getField "path"))
@@ -104,10 +104,10 @@ main = hakyll $ do
nav prev next = navPrev prev ++ navNext next
navPrev Nothing = "<span class=\"newer\">&nbsp;</span>"
- navPrev (Just url) = "<span class=\"newer\"><a href=\"" ++ url ++ "\" >&laquo; Newer Entries</a></span>"
+ navPrev (Just url) = "<span class=\"newer\"><a href=\"" ++ url ++ "\" rel=\"prev\">&laquo; Newer Entries</a></span>"
navNext Nothing = "<span class=\"older\">&nbsp;</span>"
- navNext (Just url) = "<span class=\"older\"><a href=\"" ++ url ++ "\" >Older Entries &raquo;</a></span>"
+ navNext (Just url) = "<span class=\"older\"><a href=\"" ++ url ++ "\" rel=\"next\">Older Entries &raquo;</a></span>"
pageTitle 0 = ""
pageTitle i = " - Page " ++ show (i+1)