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

ui: transaction: don't show blanks

Browse Source
This commit is contained in:
Simon Michael 2017-06-30 19:07:48 +01:00
parent 8619942388
commit eab17c8edb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-ui/Hledger/UI/RegisterScreen.hs
View File

@ -328,7 +328,7 @@ rsHandle ui@UIState{
case listSelectedElement rsList of case listSelectedElement rsList of
Just (_, RegisterScreenItem{rsItemTransaction=t}) -> Just (_, RegisterScreenItem{rsItemTransaction=t}) ->
let let
ts = map rsItemTransaction $ V.toList $ listElements rsList ts = map rsItemTransaction $ V.toList $ nonblanks
numberedts = zip [1..] ts numberedts = zip [1..] ts
i = fromIntegral $ maybe 0 (+1) $ elemIndex t ts -- XXX i = fromIntegral $ maybe 0 (+1) $ elemIndex t ts -- XXX
in in