From bf24903d9d7ab63a927e0fa4acf6494902443c52 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 5 Feb 2008 20:53:36 +0000 Subject: [PATCH] Use isEmptyUniqSet rather than isNullUFM --- compiler/rename/RnExpr.lhs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs index d6a8713..ae26383 100644 --- a/compiler/rename/RnExpr.lhs +++ b/compiler/rename/RnExpr.lhs @@ -53,8 +53,7 @@ import NameSet import UniqFM import RdrName ( RdrName, extendLocalRdrEnv, lookupLocalRdrEnv, hideSomeUnquals ) import LoadIface ( loadInterfaceForName ) -import UniqFM ( isNullUFM ) -import UniqSet ( emptyUniqSet ) +import UniqSet ( isEmptyUniqSet, emptyUniqSet ) import List ( nub ) import Util ( isSingleton ) import ListSetOps ( removeDups ) @@ -112,7 +111,7 @@ rnExprs ls = rnExprs' ls emptyUniqSet returnM (expr':exprs', fvExprs) -- Grubby little function to do "seq" on namesets; replace by proper seq when GHC can do seq -grubby_seqNameSet ns result | isNullUFM ns = result +grubby_seqNameSet ns result | isEmptyUniqSet ns = result | otherwise = result \end{code} -- 1.7.10.4