X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fstranal%2FWorkWrap.lhs;fp=ghc%2Fcompiler%2Fstranal%2FWorkWrap.lhs;h=b12d05b4b1b3ac789c68085f08ff0c06c342390f;hb=d254a44b8392ff0a4327f1916ef921887ce78769;hp=ab2b19e54cf2e3757786ad34b1afd472cce83c1d;hpb=ef3da13ba529e1f0202709bec93a2b5ba7f3e1b8;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index ab2b19e..b12d05b 100644
--- a/ghc/compiler/stranal/WorkWrap.lhs
+++ b/ghc/compiler/stranal/WorkWrap.lhs
@@ -29,7 +29,7 @@ import VarEnv		( isEmptyVarEnv )
 import Maybes		( orElse )
 import CmdLineOpts
 import WwLib
-import Util		( lengthIs )
+import Util		( lengthIs, notNull )
 import Outputable
 \end{code}
 
@@ -235,7 +235,7 @@ tryWW is_rec fn_id rhs
 	   | otherwise	       = fn_id `setIdNewStrictness` 
 				   StrictSig (mkTopDmdType wrap_dmds res_info)
 
-    is_fun    = not (null wrap_dmds)
+    is_fun    = notNull wrap_dmds
     is_thunk  = not is_fun && not (exprIsValue rhs)
 
 ---------------------