diff options
Diffstat (limited to 'users/grfn/xanthous/src/Xanthous/App/Prompt.hs')
| -rw-r--r-- | users/grfn/xanthous/src/Xanthous/App/Prompt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/users/grfn/xanthous/src/Xanthous/App/Prompt.hs b/users/grfn/xanthous/src/Xanthous/App/Prompt.hs index 799281a1c2fd..f9ee9fe1686f 100644 --- a/users/grfn/xanthous/src/Xanthous/App/Prompt.hs +++ b/users/grfn/xanthous/src/Xanthous/App/Prompt.hs @@ -55,7 +55,7 @@ handlePromptEvent _ (Prompt _ SConfirm _ _ _) (VtyEvent (EvKey (KChar 'n') [])) handlePromptEvent msg (Prompt c SStringPrompt (StringPromptState edit) pri cb) - (VtyEvent ev) + ev = do edit' <- lift $ handleEditorEvent ev edit let prompt' = Prompt c SStringPrompt (StringPromptState edit') pri cb |