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

Hlint: Error: Use notElem

Browse Source
This commit is contained in:
marko.kocic 2009-09-22 12:38:18 +00:00
parent 469550b640
commit 52e167f5e4
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Commands/Balance.hs
View File

@ -122,7 +122,7 @@ showBalanceReport opts _ l = acctsstr ++ totalstr
acctnames = sort $ tail $ flatten $ treemap aname accttree acctnames = sort $ tail $ flatten $ treemap aname accttree
accttree = ledgerAccountTree (depthFromOpts opts) l accttree = ledgerAccountTree (depthFromOpts opts) l
totalstr | NoTotal `elem` opts = "" totalstr | NoTotal `elem` opts = ""
| not (Empty `elem` opts) && isZeroMixedAmount total = "" | notElem Empty opts && isZeroMixedAmount total = ""
| otherwise = printf "--------------------\n%s\n" $ padleft 20 $ showMixedAmountWithoutPrice total | otherwise = printf "--------------------\n%s\n" $ padleft 20 $ showMixedAmountWithoutPrice total
where where
total = sum $ map abalance $ ledgerTopAccounts l total = sum $ map abalance $ ledgerTopAccounts l

2
Commands/UI.hs
View File

@ -69,7 +69,7 @@ ui opts args l = do
-- | Update the screen, wait for the next event, repeat. -- | Update the screen, wait for the next event, repeat.
go :: AppState -> IO () go :: AppState -> IO ()
go a@AppState{av=av,aopts=opts} = do go a@AppState{av=av,aopts=opts} = do
when (not $ DebugNoUI `elem` opts) $ update av (renderScreen a) when (notElem DebugNoUI opts) $ update av (renderScreen a)
k <- next_event av k <- next_event av
case k of case k of
EvResize x y -> go $ resize x y a EvResize x y -> go $ resize x y a