From fad9134fd4957c4c38e0dd7e1263ea5bfc8af32c Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Sat, 10 Aug 2013 16:18:59 +0200
Subject: Add functionField again

---
 src/Hakyll/Web/Template/Context.hs | 10 ++++++++++
 src/Hakyll/Web/Template/Read.hs    |  2 +-
 2 files changed, 11 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Hakyll/Web/Template/Context.hs b/src/Hakyll/Web/Template/Context.hs
index fe63c38..428e105 100644
--- a/src/Hakyll/Web/Template/Context.hs
+++ b/src/Hakyll/Web/Template/Context.hs
@@ -6,6 +6,7 @@ module Hakyll.Web.Template.Context
     , field
     , constField
     , listField
+    , functionField
     , mapContext
 
     , defaultContext
@@ -86,6 +87,15 @@ listField :: String -> Context a -> Compiler [Item a] -> Context b
 listField key c xs = field' key $ \_ -> fmap (ListField c) xs
 
 
+--------------------------------------------------------------------------------
+functionField :: String -> ([String] -> Item a -> Compiler String) -> Context a
+functionField name value = Context $ \k i -> case words k of
+    []              -> empty
+    (n : args)
+        | n == name -> StringField <$> value args i
+        | otherwise -> empty
+
+
 --------------------------------------------------------------------------------
 mapContext :: (String -> String) -> Context a -> Context a
 mapContext f (Context c) = Context $ \k i -> do
diff --git a/src/Hakyll/Web/Template/Read.hs b/src/Hakyll/Web/Template/Read.hs
index bb5c8c2..2421b2d 100644
--- a/src/Hakyll/Web/Template/Read.hs
+++ b/src/Hakyll/Web/Template/Read.hs
@@ -21,7 +21,7 @@ import           Hakyll.Web.Template.Internal
 readTemplate :: String -> Template
 readTemplate input = case parse template "" input of
     Left err -> error $ "Cannot parse template: " ++ show err
-    Right t -> t
+    Right t  -> t
 
 
 --------------------------------------------------------------------------------
-- 
cgit v1.2.3