From eb01806f503b310e69689e29ac8c390387aa2dc0 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 22 Feb 1998 17:42:13 +0000
Subject: [PATCH] [project @ 1998-02-22 17:42:13 by sof] Added missing close
parens
---
ghc/compiler/specialise/Specialise.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/specialise/Specialise.lhs b/ghc/compiler/specialise/Specialise.lhs
index 19f3cf998dfc..476816471daf 100644
--- 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
--
GitLab