diff options
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 |