From f9699509771346ec53c0acc82c014a355857557d Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Mon, 11 Apr 2011 21:57:33 +0200
Subject: Playing around with groups

---
 src/Hakyll/Core/Rules/Internal.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Hakyll/Core/Rules')

diff --git a/src/Hakyll/Core/Rules/Internal.hs b/src/Hakyll/Core/Rules/Internal.hs
index 0e117ec..bcba414 100644
--- a/src/Hakyll/Core/Rules/Internal.hs
+++ b/src/Hakyll/Core/Rules/Internal.hs
@@ -63,6 +63,7 @@ data RuleState = RuleState
 data RuleEnvironment = RuleEnvironment
     { rulesResourceProvider :: ResourceProvider
     , rulesPattern          :: Pattern
+    , rulesGroup            :: Maybe String
     }
 
 -- | The monad used to compose rules
@@ -85,4 +86,5 @@ runRules rules provider =
     state = RuleState {rulesMetaCompilerIndex = 0}
     env = RuleEnvironment { rulesResourceProvider = provider
                           , rulesPattern          = mempty
+                          , rulesGroup            = Nothing
                           }
-- 
cgit v1.2.3