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