From: simonpj <unknown>
Date: Mon, 9 Sep 2002 12:18:09 +0000 (+0000)
Subject: [project @ 2002-09-09 12:18:09 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1701
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fd1e03d0814fce11e30d202c0200f06e8280614c;p=ghc-hetmet.git

[project @ 2002-09-09 12:18:09 by simonpj]
Formatting only
---

diff --git a/ghc/compiler/specialise/Specialise.lhs b/ghc/compiler/specialise/Specialise.lhs
index 56aa638..c9627c3 100644
--- a/ghc/compiler/specialise/Specialise.lhs
+++ b/ghc/compiler/specialise/Specialise.lhs
@@ -1029,10 +1029,9 @@ mkCallUDs subst f args
     spec_tys = [mk_spec_ty tv ty | (tv, Type ty) <- tyvars `zip` args]
     dicts    = [dict_expr | (_, dict_expr) <- theta `zip` (drop n_tyvars args)]
     
-    mk_spec_ty tyvar ty | tyvar `elemVarSet` constrained_tyvars
-			= Just ty
-			| otherwise
-			= Nothing
+    mk_spec_ty tyvar ty 
+	| tyvar `elemVarSet` constrained_tyvars = Just ty
+	| otherwise				= Nothing
 
 ------------------------------------------------------------			
 plusUDs :: UsageDetails -> UsageDetails -> UsageDetails