@@ -208,13 +208,13 @@ chase trail id'
208208
209209 -- Signal that a snapshot was saved ->
210210 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.
212213 modify $ \s -> s
213214 { runtimeSnapshots =
214215 S.insert (id', snapshot) (runtimeSnapshots s)
215216 , runtimeTodo = M.insert id' c (runtimeTodo s)
216217 }
217− chase trail id'
218218
219219 -- Huge success
220220 CompilerDone (SomeItem item) cwrite -> do