1 files changed, 1 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 3576a7a..b056aff 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -312,6 +312,7 @@ delay = withFocus $ fmap (\_ -> ()) . runMaybeT . delay'
      guard $ focusSeq >= tipSeq
      tipName <- toName tipId
      lift $ spendSeq (focusSeq - tipSeq) ("Wait for " ++ tipName)
+      gFocus ?= tipId
 addNote :: String -> Sh GameState ()
 addNote note = withFocus $ \focusId -> gEntities . ix focusId . eNotes %= (note :)

diff --git a/src/Main.hs b/src/Main.hs index 3576a7a..b056aff 100644 --- a/src/Main.hs +++ b/src/Main.hs
@@ -312,6 +312,7 @@ delay = withFocus $ fmap (\_ -> ()) . runMaybeT . delay'
312	guard $ focusSeq >= tipSeq	312	guard $ focusSeq >= tipSeq
313	tipName <- toName tipId	313	tipName <- toName tipId
314	lift $ spendSeq (focusSeq - tipSeq) ("Wait for " ++ tipName)	314	lift $ spendSeq (focusSeq - tipSeq) ("Wait for " ++ tipName)
		315	gFocus ?= tipId
315		316
316	addNote :: String -> Sh GameState ()	317	addNote :: String -> Sh GameState ()
317	addNote note = withFocus $ \focusId -> gEntities . ix focusId . eNotes %= (note :)	318	addNote note = withFocus $ \focusId -> gEntities . ix focusId . eNotes %= (note :)