From 52e167f5e437bfbf5255e2c30f800ac389bd8570 Mon Sep 17 00:00:00 2001
From: "marko.kocic" <marko.kocic@gmail.com>
Date: Tue, 22 Sep 2009 12:38:18 +0000
Subject: [PATCH] Hlint: Error: Use notElem

---
 Commands/Balance.hs | 2 +-
 Commands/UI.hs      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Commands/Balance.hs b/Commands/Balance.hs
index b890ed22d..77de6a42b 100644
--- a/Commands/Balance.hs
+++ b/Commands/Balance.hs
@@ -122,7 +122,7 @@ showBalanceReport opts _ l = acctsstr ++ totalstr
             acctnames = sort $ tail $ flatten $ treemap aname accttree
             accttree = ledgerAccountTree (depthFromOpts opts) l
       totalstr | NoTotal `elem` opts = ""
-               | not (Empty `elem` opts) && isZeroMixedAmount total = ""
+               | notElem Empty opts && isZeroMixedAmount total = ""
                | otherwise = printf "--------------------\n%s\n" $ padleft 20 $ showMixedAmountWithoutPrice total
           where
             total = sum $ map abalance $ ledgerTopAccounts l
diff --git a/Commands/UI.hs b/Commands/UI.hs
index 4b114cc85..f72c2fbb7 100644
--- a/Commands/UI.hs
+++ b/Commands/UI.hs
@@ -69,7 +69,7 @@ ui opts args l = do
 -- | Update the screen, wait for the next event, repeat.
 go :: AppState -> IO ()
 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
   case k of 
     EvResize x y                -> go $ resize x y a