Add boolFieldM for monadic bool fields creation

lib/Hakyll/Web/Template/Context.hs

@@ -26,6 +26,7 @@ module Hakyll.Web.Template.Context
     , Context (..)
     , field
     , boolField
+    , boolFieldM
     , constField
     , listField
     , listFieldWith
@@ -151,6 +152,18 @@ boolField name f = field' name (\i -> if f i
     then return EmptyField
     else noResult $ "Field " ++ name ++ " is false")
 
+-- | Creates a 'field' to use with the @$if()$@ template macro, in the 'Compiler' monad.
+-- Attempting to substitute the field into the template will cause an error.
+boolFieldM
+    :: String
+    -> (Item a -> Compiler Bool)
+    -> Context a
+boolFieldM name f = field' name (\i -> do
+  b <- f i
+  if b
+    then return EmptyField
+    else noResult $ "Field " ++ name ++ " is false")
+
 
 --------------------------------------------------------------------------------
 -- | Creates a 'field' that does not depend on the 'Item' but always yields