From dae3dca29075d5de8c4c51b3eab9bf0334866c9a Mon Sep 17 00:00:00 2001
From: Chris Wells <chris@mathematicaster.org>
Date: Tue, 14 Jan 2025 11:48:09 -0600
Subject: Adding new modules

---
 src/Hakyll/Web/Template/Util.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 src/Hakyll/Web/Template/Util.hs

(limited to 'src/Hakyll/Web/Template/Util.hs')

diff --git a/src/Hakyll/Web/Template/Util.hs b/src/Hakyll/Web/Template/Util.hs
new file mode 100644
index 0000000..cfd8573
--- /dev/null
+++ b/src/Hakyll/Web/Template/Util.hs
@@ -0,0 +1,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
-- 
cgit v1.2.3