@@ -100,7 +100,11 @@ addNewCompilers oldCompilers newCompilers = Hakyll $ do
100100
101101 -- Check which items are up-to-date. This only needs to happen for the new
102102 -- compilers
103− modified' <- liftIO $ modified provider store $ map fst compilers
103+ oldModified <- hakyllModified <$> ask
104+ newModified <- liftIO $ modified provider store $ map fst newCompilers
105+ let modified' = oldModified `S.union` newModified
106+
107+ liftIO $ putStrLn $ show modified'
104108
105109 let -- Try to reduce the graph using this modified information
106110 reducedGraph = filterObsolete modified' graph
@@ -111,12 +115,14 @@ addNewCompilers oldCompilers newCompilers = Hakyll $ do
111115 -- Join the order with the compilers again
112116 orderedCompilers = map (id &&& (compilerMap M.!)) ordered
113117
118+ liftIO $ putStrLn "Adding compilers..."
119+
114120 -- Now run the ordered list of compilers
115121 local (updateModified modified') $ unHakyll $ runCompilers orderedCompilers
116122 where
117123 -- Add the modified information for the new compilers
118124 updateModified modified' env = env
119− { hakyllModified = hakyllModified env `S.union` modified'
125+ { hakyllModified = modified'
120126 }
121127
122128runCompilers :: [(Identifier, Compiler () CompileRule)]