summaryrefslogtreecommitdiff
path: root/src/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs
index e480f4b..96e3fef 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -100,7 +100,7 @@ setFocus = withArg $ \ident -> gFocus .= Just ident
100remove :: Sh GameState () 100remove :: Sh GameState ()
101remove = withFocus $ \ident -> do 101remove = withFocus $ \ident -> do
102 name <- toName ident 102 name <- toName ident
103 confirmation <- askBool ("Are you sure you want to remove ‘" ++ name ++ "’? ") False 103 confirmation <- askBool ("Are you sure you want to remove ‘" ++ name ++ "’?") False
104 when confirmation $ do 104 when confirmation $ do
105 gEntities %= Map.delete ident 105 gEntities %= Map.delete ident
106 gEntityNames %= Bimap.delete ident 106 gEntityNames %= Bimap.delete ident