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

ui: fix vector-related breakage with GHC < 7.10

Browse Source
This commit is contained in:
Simon Michael 2015-08-28 11:39:23 -07:00
parent 570e340b7c
commit 8a343002f6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-ui/Hledger/UI/AccountsScreen.hs
View File

@ -119,11 +119,11 @@ drawAccountsScreen st@AppState{aopts=uopts, ajournal=j, aScreen=AccountsScreen{a
cur = str (case is^.listSelectedL of cur = str (case is^.listSelectedL of
Nothing -> "-" Nothing -> "-"
Just i -> show (i + 1)) Just i -> show (i + 1))
total = str $ show $ length $ is^.listElementsL total = str $ show $ V.length $ is^.listElementsL
items = listElements is items = listElements is
flat = flat_ $ reportopts_ $ cliopts_ $ aopts st flat = flat_ $ reportopts_ $ cliopts_ $ aopts st
acctcolwidth = maximum $ acctcolwidth = V.maximum $
V.map V.map
(\((full,short,indent),_) -> (\((full,short,indent),_) ->
if flat then length full else length short + indent*2) if flat then length full else length short + indent*2)