diff options
Diffstat (limited to 'users/grfn/xanthous/src/Xanthous/Game/Draw.hs')
| -rw-r--r-- | users/grfn/xanthous/src/Xanthous/Game/Draw.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/users/grfn/xanthous/src/Xanthous/Game/Draw.hs b/users/grfn/xanthous/src/Xanthous/Game/Draw.hs index b9590ba40438..5b51ca67292b 100644 --- a/users/grfn/xanthous/src/Xanthous/Game/Draw.hs +++ b/users/grfn/xanthous/src/Xanthous/Game/Draw.hs @@ -44,10 +44,8 @@ drawPromptState NoPrompt = emptyWidget drawPromptState (WaitingPrompt msg (Prompt _ pt ps pri _)) = case (pt, ps, pri) of (SStringPrompt, StringPromptState edit, mDef) -> - txtWrap msg - <+> txt " " - <+> txt (maybe "" (\def -> "(default: " <> def <> ")") mDef) - <+> txt " " + txt msg + <+> txt (maybe "" (\def -> "(default: " <> def <> ") ") mDef) <+> renderEditor (txt . fold) True edit (SDirectionPrompt, DirectionPromptState, _) -> txtWrap msg (SMenu, _, menuItems) -> |