src/Hakyll/Web/Template/Util.hs


1
2
3
4
5
6
7
8
9
10
11

module Hakyll.Web.Template.Util
    ( slug
    ) where

import Prolog
import Hakyll.Web.Template.Context
import Data.String.Slugger


slug :: Context a
slug = functionField "slug" $ \strs _ -> pure $ toSlug $ unwords strs