diff options
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 2 |
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 | |||
100 | remove :: Sh GameState () | 100 | remove :: Sh GameState () |
101 | remove = withFocus $ \ident -> do | 101 | remove = 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 |