Skip to content

Instantly share code, notes, and snippets.

@paul-r-ml
Created May 20, 2011 09:07
Show Gist options
  • Save paul-r-ml/982599 to your computer and use it in GitHub Desktop.
Save paul-r-ml/982599 to your computer and use it in GitHub Desktop.
hakyll groups
group "processTags" $ match "published/*" $ compile $ readPageCompiler
create "tags" $
( requireAll
( (inGroup $ Just "processTags") `mappend` "published/*" )
(\_ ps -> readTags ps :: Tags String) )
-- Add a tag list compiler for every tag
match "tags/*" $ route $ setExtension ".html"
metaCompile $ require_ "tags"
>>> arr tagsMap
>>> arr (map (\(t, p) -> (tagIdentifier t,
makeTagList t p) ) )
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment