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 | |
| parent | cd0228ac2bb845b25b30095d4b4d9649eac447b2 (diff) | |
| download | hakyll-6bb94ac3fa652da5c479f262b92d3f54d4f2cc79.tar.gz | |
Relax Rules to RulesM a in most places
Diffstat (limited to 'src/Hakyll/Core')
| -rw-r--r-- | src/Hakyll/Core/Rules/Internal.hs | 2 | ||||
| -rw-r--r-- | src/Hakyll/Core/Run.hs | 2 |
2 files changed, 2 insertions, 2 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 diff --git a/src/Hakyll/Core/Run.hs b/src/Hakyll/Core/Run.hs index 9b27cf3..88cc160 100644 --- a/src/Hakyll/Core/Run.hs +++ b/src/Hakyll/Core/Run.hs @@ -35,7 +35,7 @@ import Hakyll.Core.Logger -- | Run all rules needed, return the rule set used -- -run :: HakyllConfiguration -> Rules -> IO RuleSet +run :: HakyllConfiguration -> RulesM a -> IO RuleSet run configuration rules = do logger <- makeLogger putStrLn |