diff --git a/hledger-ui/Hledger/UI/AccountsScreen.hs b/hledger-ui/Hledger/UI/AccountsScreen.hs index 75ad3bf08..67b494441 100644 --- a/hledger-ui/Hledger/UI/AccountsScreen.hs +++ b/hledger-ui/Hledger/UI/AccountsScreen.hs @@ -257,7 +257,7 @@ asHandle ui0@UIState{ case ev of EvKey KEsc [] -> continue $ closeMinibuffer ui EvKey KEnter [] -> continue $ regenerateScreens j d $ setFilter s $ closeMinibuffer ui - where s = chomp $ unlines $ getEditContents ed + where s = chomp $ unlines $ map strip $ getEditContents ed ev -> do ed' <- handleEditorEvent ev ed continue $ ui{aMode=Minibuffer ed'} diff --git a/hledger-ui/Hledger/UI/RegisterScreen.hs b/hledger-ui/Hledger/UI/RegisterScreen.hs index ab246eb95..b9c703e84 100644 --- a/hledger-ui/Hledger/UI/RegisterScreen.hs +++ b/hledger-ui/Hledger/UI/RegisterScreen.hs @@ -242,7 +242,7 @@ rsHandle ui@UIState{ case ev of EvKey KEsc [] -> continue $ closeMinibuffer ui EvKey KEnter [] -> continue $ regenerateScreens j d $ setFilter s $ closeMinibuffer ui - where s = chomp $ unlines $ getEditContents ed + where s = chomp $ unlines $ map strip $ getEditContents ed ev -> do ed' <- handleEditorEvent ev ed continue $ ui{aMode=Minibuffer ed'}