diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-30 21:18:55 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-30 21:18:55 +0100 |
commit | e49cd3b4b071c2e0cb3e553fe8272e7cd2843349 (patch) | |
tree | 544d8f29ca8082577426010b7f251185a209e3f4 /src/Hakyll/Core/Run.hs | |
parent | da12825066d16884bae2f884029102919dd9a558 (diff) | |
download | hakyll-e49cd3b4b071c2e0cb3e553fe8272e7cd2843349.tar.gz |
Cleanup, split up page module
Diffstat (limited to 'src/Hakyll/Core/Run.hs')
-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 fa88458..ccb731c 100644 --- a/src/Hakyll/Core/Run.hs +++ b/src/Hakyll/Core/Run.hs @@ -66,10 +66,11 @@ hakyllWith rules provider store = do putStrLn "DONE." where addTarget route' map' (id', comp) = do - compiled <- runCompilerJob comp id' provider (dependencyLookup map') + let url = runRoute route' id' + compiled <- runCompilerJob comp id' provider (dependencyLookup map') url putStrLn $ "Generated target: " ++ show id' - case runRoute route' id' of + case url of Nothing -> return () Just r -> do putStrLn $ "Routing " ++ show id' ++ " to " ++ r |