X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FLiberateCase.lhs;h=466dfad4ce98bcb66a5d75666b457084ec8dc862;hb=5e392a5623fe7f896389f1b7c3fb3f340bea46a8;hp=94a478afd58504dc8151c7131385f3aac464457c;hpb=6858f7c15fcf9efe9e6fdf22de34d0791b0f0c08;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/LiberateCase.lhs b/ghc/compiler/simplCore/LiberateCase.lhs
index 94a478a..466dfad 100644
--- a/ghc/compiler/simplCore/LiberateCase.lhs
+++ b/ghc/compiler/simplCore/LiberateCase.lhs
@@ -14,8 +14,8 @@ import CoreSyn
 import CoreUnfold	( couldBeSmallEnoughToInline )
 import Var		( Id )
 import VarEnv
-import UniqFM		( ufmToList )
 import Outputable
+import Util             ( notNull )
 \end{code}
 
 This module walks over @Core@, and looks for @case@ on free variables.
@@ -237,7 +237,7 @@ Ids
 libCaseId :: LibCaseEnv -> Id -> CoreExpr
 libCaseId env v
   | Just the_bind <- lookupRecId env v	-- It's a use of a recursive thing
-  , not (null free_scruts)		-- with free vars scrutinised in RHS
+  , notNull free_scruts 		-- with free vars scrutinised in RHS
   = Let the_bind (Var v)
 
   | otherwise