From 20f53cc1cb01b51bfecc3896c69e881dc72e6e05 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Fri, 3 Jun 2016 12:53:10 +0200
Subject: support for questions

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

(limited to 'src/Main.hs')

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
 remove :: Sh GameState ()
 remove = withFocus $ \ident -> do
   name <- toName ident
-  confirmation <- askBool ("Are you sure you want to remove ‘" ++ name ++ "’? ") False
+  confirmation <- askBool ("Are you sure you want to remove ‘" ++ name ++ "’?") False
   when confirmation $ do
     gEntities %= Map.delete ident
     gEntityNames %= Bimap.delete ident
-- 
cgit v1.2.3