@@ -208,13 +208,13 @@ chase trail id'
209 -- Signal that a snapshot was saved ->
209 -- Signal that a snapshot was saved ->
210 CompilerSnapshot snapshot c -> do
210 CompilerSnapshot snapshot c -> do
211− -- Update info and just continue.
211+ -- Update info. The next 'chase' will pick us again at some
212+ -- point so we can continue then.
212 modify $ \s -> s
213 modify $ \s -> s
213 { runtimeSnapshots =
214 { runtimeSnapshots =
214 S.insert (id', snapshot) (runtimeSnapshots s)
215 S.insert (id', snapshot) (runtimeSnapshots s)
215 , runtimeTodo = M.insert id' c (runtimeTodo s)
216 , runtimeTodo = M.insert id' c (runtimeTodo s)
219 -- Huge success
219 -- Huge success
220 CompilerDone (SomeItem item) cwrite -> do
220 CompilerDone (SomeItem item) cwrite -> do