[project @ 1998-02-22 17:42:13 by sof]

[ghc-hetmet.git] / ghc / compiler / specialise / Specialise.lhs

diff --git a/ghc/compiler/specialise/Specialise.lhs b/ghc/compiler/specialise/Specialise.lhs
index 19f3cf9..4768164 100644 (file)
--- a/ghc/compiler/specialise/Specialise.lhs
+++ b/ghc/compiler/specialise/Specialise.lhs
@@ -977,7 +977,7 @@ dumpUDs :: [CoreBinder]
        -> (UsageDetails, CoreExpr)
 
 dumpUDs bndrs uds@(MkUDs {fvs = orig_fvs, dictBinds = orig_dbs, calls = orig_calls}) body
-  = ASSERT( isEmptyTyVarSet (tyvar_set `intersectTyVarSets` ftvs)
+  = ASSERT( isEmptyTyVarSet (tyvar_set `intersectTyVarSets` ftvs))
        -- The tyvars shouldn't be free in any of the usage details
        -- If it was, then we should have found a dictionary lambda first