diff options
Diffstat (limited to 'compiler/GHC/Types/Var/Set.hs')
-rw-r--r-- | compiler/GHC/Types/Var/Set.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Types/Var/Set.hs b/compiler/GHC/Types/Var/Set.hs index e038f6c93c..9eed5e2cd2 100644 --- a/compiler/GHC/Types/Var/Set.hs +++ b/compiler/GHC/Types/Var/Set.hs @@ -195,7 +195,7 @@ transCloVarSet fn seeds new_vs = fn candidates `minusVarSet` acc seqVarSet :: VarSet -> () -seqVarSet s = sizeVarSet s `seq` () +seqVarSet s = s `seq` () -- | Determines the pluralisation suffix appropriate for the length of a set -- in the same way that plural from Outputable does for lists. @@ -323,7 +323,7 @@ delDVarSetList :: DVarSet -> [Var] -> DVarSet delDVarSetList = delListFromUniqDSet seqDVarSet :: DVarSet -> () -seqDVarSet s = sizeDVarSet s `seq` () +seqDVarSet s = s `seq` () -- | Add a list of variables to DVarSet extendDVarSetList :: DVarSet -> [Var] -> DVarSet |