diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-15 18:43:22 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-15 18:43:22 +0100 |
| commit | 3346123ca661d578ccb458e7135f8b68867bf107 (patch) | |
| tree | a95af7f70050ecbc106791cee4ed89edff89c462 /src/Hakyll/Core | |
| parent | 5a591ee24c50ed25702c06f8f811189984e443ea (diff) | |
| download | hakyll-3346123ca661d578ccb458e7135f8b68867bf107.tar.gz | |
Receive list of used resources in Run module
Diffstat (limited to 'src/Hakyll/Core')
| -rw-r--r-- | src/Hakyll/Core/Run.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Hakyll/Core/Run.hs b/src/Hakyll/Core/Run.hs index 2b0ff5d..b59fdac 100644 --- a/src/Hakyll/Core/Run.hs +++ b/src/Hakyll/Core/Run.hs @@ -32,9 +32,9 @@ import Hakyll.Core.Writable import Hakyll.Core.Store import Hakyll.Core.Configuration --- | Run all rules needed +-- | Run all rules needed, return the rule set used -- -run :: HakyllConfiguration -> Rules -> IO () +run :: HakyllConfiguration -> Rules -> IO RuleSet run configuration rules = do store <- makeStore $ storeDirectory configuration provider <- fileResourceProvider @@ -46,6 +46,7 @@ run configuration rules = do state' = runReaderT reader $ env ruleSet provider store evalStateT state' state + return ruleSet where env ruleSet provider store = RuntimeEnvironment { hakyllConfiguration = configuration |