@@ -28,7 +28,6 @@ import Hakyll.Core.Resource.Provider
2828import Hakyll.Core.Resource.Provider.File
2929import Hakyll.Core.Rules.Internal
3030import Hakyll.Core.DirectedGraph
31−import Hakyll.Core.DirectedGraph.Dot
3231import Hakyll.Core.DependencyAnalyzer
3332import Hakyll.Core.Writable
3433import Hakyll.Core.Store
@@ -64,9 +63,6 @@ run configuration rules = do
6463 , hakyllStore = store
6564 }
6665
67− -- DEBUG
68− report logger $ "Compilers: " ++ show (map fst compilers)
69−
7066 -- Run the program and fetch the resulting state
7167 ((), state') <- runStateT stateT $ RuntimeState
7268 { hakyllAnalyzer = makeDependencyAnalyzer mempty (const False) oldGraph
@@ -98,17 +94,6 @@ newtype Runtime a = Runtime
9894 { unRuntime :: ReaderT RuntimeEnvironment (StateT RuntimeState IO) a
9995 } deriving (Functor, Applicative, Monad)
10096
101−-- | Return a set of modified identifiers
102−--
103−{-
104−modified :: ResourceProvider -- ^ Resource provider
105− -> Store -- ^ Store
106− -> [Identifier] -- ^ Identifiers to check
107− -> IO (Set Identifier) -- ^ Modified resources
108−modified provider store ids = fmap S.fromList $ flip filterM ids $ \id' ->
109− resourceModified provider (Resource id') store
110−-}
111−
11297-- | Add a number of compilers and continue using these compilers
11398--
11499addNewCompilers :: [(Identifier, Compiler () CompileRule)]
@@ -121,9 +106,6 @@ addNewCompilers newCompilers = Runtime $ do
121106 provider <- hakyllResourceProvider <$> ask
122107 store <- hakyllStore <$> ask
123108
124− -- DEBUG
125− report logger $ "Adding: " ++ show (map fst newCompilers)
126−
127109 -- Old state information
128110 oldCompilers <- hakyllCompilers <$> get
129111 oldAnalyzer <- hakyllAnalyzer <$> get
@@ -139,19 +121,9 @@ addNewCompilers newCompilers = Runtime $ do
139121 -- Create the dependency graph
140122 newGraph = fromList dependencies
141123
142− -- DEBUG
143− report logger $ "Dependencies: " ++ show dependencies
144− liftIO $ writeFile "newGraph.dot" $ toDot show newGraph
145−
146−
147124 -- Check which items have been modified
148− modified <- fmap S.fromList $ flip filterM (map fst newCompilers) $ \id' -> do
149− m <- liftIO $ resourceModified provider store $ fromIdentifier id'
150− liftIO $ putStrLn $ show id' ++ " " ++ show m
151− return m
152−
153− -- DEBUG
154− report logger $ "Modified: " ++ show modified
125+ modified <- fmap S.fromList $ flip filterM (map fst newCompilers) $
126+ liftIO . resourceModified provider store . fromIdentifier
155127
156128 -- Create a new analyzer and append it to the currect one
157129 let newAnalyzer = makeDependencyAnalyzer newGraph (`S.member` modified) $