X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FbasicTypes%2FDataCon.lhs;fp=ghc%2Fcompiler%2FbasicTypes%2FDataCon.lhs;h=175427ac83d6179023aba8a05c66e34021c542b0;hb=d254a44b8392ff0a4327f1916ef921887ce78769;hp=73e4845959660ee3d6d52bde5ce1e5155a7f7a24;hpb=ef3da13ba529e1f0202709bec93a2b5ba7f3e1b8;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/DataCon.lhs b/ghc/compiler/basicTypes/DataCon.lhs
index 73e4845..175427a 100644
--- a/ghc/compiler/basicTypes/DataCon.lhs
+++ b/ghc/compiler/basicTypes/DataCon.lhs
@@ -42,7 +42,7 @@ import Unique		( Unique, Uniquable(..) )
 import CmdLineOpts	( opt_UnboxStrictFields )
 import Maybe
 import ListSetOps	( assoc )
-import Util		( zipEqual, zipWithEqual, equalLength )
+import Util		( zipEqual, zipWithEqual, equalLength, notNull )
 \end{code}
 
 
@@ -417,7 +417,7 @@ isUnboxedTupleCon :: DataCon -> Bool
 isUnboxedTupleCon (MkData {dcTyCon = tc}) = isUnboxedTupleTyCon tc
 
 isExistentialDataCon :: DataCon -> Bool
-isExistentialDataCon (MkData {dcExTyVars = tvs}) = not (null tvs)
+isExistentialDataCon (MkData {dcExTyVars = tvs}) = notNull tvs
 \end{code}