From b90cfae6f1c01c4ed78123cc3eac021cefd7f519 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Wed, 13 Apr 2011 21:22:31 +0200
Subject: Update tagblog example

---
 examples/tagblog/hakyll.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'examples')

diff --git a/examples/tagblog/hakyll.hs b/examples/tagblog/hakyll.hs
index f8afdd5..0f1e7ab 100644
--- a/examples/tagblog/hakyll.hs
+++ b/examples/tagblog/hakyll.hs
@@ -4,7 +4,6 @@ module Main where
 import Prelude hiding (id)
 import Control.Arrow ((>>>), (***), arr)
 import Control.Category (id)
-import qualified Data.Map as M
 import Data.Monoid (mempty, mconcat)
 
 import Hakyll
@@ -21,7 +20,7 @@ main = hakyll $ do
         route   $ setExtension ".html"
         compile $ pageCompiler
             >>> arr (renderDateField "date" "%B %e, %Y" "Date unknown")
-            >>> renderTagsField "prettytags" (fromCaptureString "tags/*")
+            >>> renderTagsField "prettytags" (fromCapture "tags/*")
             >>> applyTemplateCompiler "templates/post.html"
             >>> applyTemplateCompiler "templates/default.html"
             >>> relativizeUrlsCompiler
@@ -69,7 +68,7 @@ main = hakyll $ do
     renderTagCloud' = renderTagCloud tagIdentifier 100 120
 
     tagIdentifier :: String -> Identifier
-    tagIdentifier = fromCaptureString "tags/*"
+    tagIdentifier = fromCapture "tags/*"
 
 -- | Auxiliary compiler: generate a post list from a list of given posts, and
 -- add it to the current page under @$posts@
-- 
cgit v1.2.3