From fd1e03d0814fce11e30d202c0200f06e8280614c Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 9 Sep 2002 12:18:09 +0000
Subject: [PATCH] [project @ 2002-09-09 12:18:09 by simonpj] Formatting only

---
 ghc/compiler/specialise/Specialise.lhs |    7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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
-- 
1.7.10.4