diff --git a/users/grfn/xanthous/src/Xanthous/Game/Draw.hs b/users/grfn/xanthous/src/Xanthous/Game/Draw.hs index b9590ba40..5b51ca672 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) ->