From 6d9a72b9c893d02649c7336c8defbc0282acaf8c Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Sun, 26 Jun 2016 16:00:17 +0200
Subject: fixed delay

---
 src/Main.hs | 1 +
 1 file changed, 1 insertion(+)

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 :)
-- 
cgit v1.2.3