ui: transaction: don't show blanks

2017-06-30 19:07:48 +01:00 · 2017-06-30 19:07:48 +01:00 · eab17c8edb
commit eab17c8edb
parent 8619942388
1 changed files with 1 additions and 1 deletions
--- a/hledger-ui/Hledger/UI/RegisterScreen.hs
+++ b/hledger-ui/Hledger/UI/RegisterScreen.hs
@ -328,7 +328,7 @@ rsHandle ui@UIState{
          case listSelectedElement rsList of
            Just (_, RegisterScreenItem{rsItemTransaction=t}) ->
              let
-                ts = map rsItemTransaction $ V.toList $ listElements rsList
+                ts = map rsItemTransaction $ V.toList $ nonblanks
                numberedts = zip [1..] ts
                i = fromIntegral $ maybe 0 (+1) $ elemIndex t ts -- XXX
              in