@@ -131,7 +131,9 @@ instance Monad Compiler where
131 res' <- unCompiler (f x) r
131 res' <- unCompiler (f x) r
132 return $ case res' of
132 return $ case res' of
133 CompilerDone y w' -> CompilerDone y (w `mappend` w')
133 CompilerDone y w' -> CompilerDone y (w `mappend` w')
134− CompilerSnapshot s c' -> CompilerSnapshot s c'
134+ CompilerSnapshot s c' -> CompilerSnapshot s $ do
135+ compilerTell w -- Save dependencies!
135 CompilerError e -> CompilerError e
137 CompilerError e -> CompilerError e
136 CompilerRequire i c' -> CompilerRequire i $ do
138 CompilerRequire i c' -> CompilerRequire i $ do
137 compilerTell w -- Save dependencies!
139 compilerTell w -- Save dependencies!