diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-05-29 12:30:33 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-05-29 12:30:33 +0200 |
commit | 6bb94ac3fa652da5c479f262b92d3f54d4f2cc79 (patch) | |
tree | a7c92f90a5e293ecf93ea433b83c8afd97b6e179 /src/Hakyll/Core/Rules | |
parent | cd0228ac2bb845b25b30095d4b4d9649eac447b2 (diff) | |
download | hakyll-6bb94ac3fa652da5c479f262b92d3f54d4f2cc79.tar.gz |
Relax Rules to RulesM a in most places
Diffstat (limited to 'src/Hakyll/Core/Rules')
-rw-r--r-- | src/Hakyll/Core/Rules/Internal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Hakyll/Core/Rules/Internal.hs b/src/Hakyll/Core/Rules/Internal.hs index 5a1ab8e..fd13f7a 100644 --- a/src/Hakyll/Core/Rules/Internal.hs +++ b/src/Hakyll/Core/Rules/Internal.hs @@ -80,7 +80,7 @@ type Rules = RulesM () -- | Run a Rules monad, resulting in a 'RuleSet' -- -runRules :: Rules -> ResourceProvider -> RuleSet +runRules :: RulesM a -> ResourceProvider -> RuleSet runRules rules provider = nubCompilers $ evalState (execWriterT $ runReaderT (unRulesM rules) env) state where |