yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update tagblog example

Browse source
This commit is contained in:
Jasper Van der Jeugt 2011-04-13 21:22:31 +02:00
parent 131a49c0e7
commit b90cfae6f1
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
examples/tagblog/hakyll.hs
View file

@ -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@