slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

dev:ui:transaction, error screens: fix for third fix

Browse Source
This commit is contained in:
Simon Michael 2025-09-13 09:46:48 +01:00
parent 112272fd8f
commit 546b172be2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hledger-ui/Hledger/UI/ErrorScreen.hs
View File

@ -114,15 +114,15 @@ esHandle ev = do
-- XXX On an error screen below the transaction screen, this is tricky because of a current limitation of regenerateScreens. -- XXX On an error screen below the transaction screen, this is tricky because of a current limitation of regenerateScreens.
-- For now we try to work around by re-entering the transaction screen. -- For now we try to work around by re-entering the transaction screen.
-- This can show flicker in the UI and it's hard to handle all situations robustly. -- This can show flicker in the UI and it's hard to handle all situations robustly.
esReload copts d ui = uiReload copts d ui >>= maybeReloadErrorScreen d esReload copts d ui = uiReload copts d ui >>= maybeReloadErrorScreen copts d
esReloadIfFileChanged copts d j ui = liftIO (uiReloadIfFileChanged copts d j ui) >>= maybeReloadErrorScreen d esReloadIfFileChanged copts d j ui = liftIO (uiReloadIfFileChanged copts d j ui) >>= maybeReloadErrorScreen copts d
maybeReloadErrorScreen d ui = maybeReloadErrorScreen copts d ui =
case headMay $ aPrevScreens ui of case headMay $ aPrevScreens ui of
Just (TS _) -> do Just (TS _) -> do
-- check balance assertions, exit to register screen, enter transaction screen, reload once more -- check balance assertions, exit to register screen, enter transaction screen, reload once more
put' $ popScreen $ popScreen $ uiCheckBalanceAssertions d ui put' $ popScreen $ popScreen $ uiCheckBalanceAssertions d ui
sendVtyEvents [EvKey KEnter [], EvKey (KChar 'g') []] -- XXX Might be disrupted if other events are queued ? sendVtyEvents [EvKey KEnter [], EvKey (KChar 'g') []] -- XXX Might be disrupted if other events are queued ?
_ -> return () _ -> uiReload copts d (popScreen ui) >>= put' . uiCheckBalanceAssertions d
-- | Parse the file name, line and column number from a hledger parse error message, if possible. -- | Parse the file name, line and column number from a hledger parse error message, if possible.
-- Temporary, we should keep the original parse error location. XXX -- Temporary, we should keep the original parse error location. XXX