diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-03 12:53:10 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-03 12:53:10 +0200 |
| commit | 20f53cc1cb01b51bfecc3896c69e881dc72e6e05 (patch) | |
| tree | 63041a392efc2acec2509d60b4eaa87f26d2fd40 /src/Main.hs | |
| parent | 581b746992878819e813e867ad183a160709de53 (diff) | |
| download | 2017-01-16_17:13:37-20f53cc1cb01b51bfecc3896c69e881dc72e6e05.tar 2017-01-16_17:13:37-20f53cc1cb01b51bfecc3896c69e881dc72e6e05.tar.gz 2017-01-16_17:13:37-20f53cc1cb01b51bfecc3896c69e881dc72e6e05.tar.bz2 2017-01-16_17:13:37-20f53cc1cb01b51bfecc3896c69e881dc72e6e05.tar.xz 2017-01-16_17:13:37-20f53cc1cb01b51bfecc3896c69e881dc72e6e05.zip | |
support for questions
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 |