diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-31 15:16:14 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-31 15:16:14 +0100 |
commit | 24273d034850b1312c551f6ace7f0b549728cbc9 (patch) | |
tree | c17c96c372a9605fb5081311d7a6d93de4135649 /src/Hakyll/Core/Runtime.hs | |
parent | ed03544e1b58710448fa67764f10554b8eeab8dc (diff) | |
download | hakyll-24273d034850b1312c551f6ace7f0b549728cbc9.tar.gz |
Remove verbosity from configuration
Diffstat (limited to 'src/Hakyll/Core/Runtime.hs')
-rw-r--r-- | src/Hakyll/Core/Runtime.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Hakyll/Core/Runtime.hs b/src/Hakyll/Core/Runtime.hs index 7e4a835..e052f37 100644 --- a/src/Hakyll/Core/Runtime.hs +++ b/src/Hakyll/Core/Runtime.hs @@ -28,7 +28,7 @@ import Hakyll.Core.Configuration import Hakyll.Core.Dependencies import Hakyll.Core.Identifier import Hakyll.Core.Item.SomeItem -import Hakyll.Core.Logger (Logger) +import Hakyll.Core.Logger (Logger, Verbosity) import qualified Hakyll.Core.Logger as Logger import Hakyll.Core.Provider import Hakyll.Core.Routes @@ -41,10 +41,10 @@ import Hakyll.Core.Writable -------------------------------------------------------------------------------- -- | TODO Make this return exit code? -run :: Configuration -> Rules a -> IO RuleSet -run config rules = do +run :: Configuration -> Verbosity -> Rules a -> IO RuleSet +run config verbosity rules = do -- Initialization - logger <- Logger.new (verbosity config) + logger <- Logger.new verbosity Logger.header logger "Initialising..." Logger.message logger "Creating store..." store <- Store.new (inMemoryCache config) $ storeDirectory config |