[project @ 2002-03-08 15:47:18 by simonpj]

[ghc-hetmet.git] / ghc / compiler / stranal / WwLib.lhs

diff --git a/ghc/compiler/stranal/WwLib.lhs b/ghc/compiler/stranal/WwLib.lhs
index fa6c806..7a14c32 100644 (file)
--- a/ghc/compiler/stranal/WwLib.lhs
+++ b/ghc/compiler/stranal/WwLib.lhs
@@ -244,8 +244,8 @@ mkWWargs fun_ty demands one_shots
   | not (null demands)
   = getUniquesUs               `thenUs` \ wrap_uniqs ->
     let
-      (tyvars, tau)            = splitForAllTys fun_ty
-      (arg_tys, body_ty)       = splitFunTys tau
+      (tyvars, tau)      = splitForAllTys fun_ty
+      (arg_tys, body_ty) = splitFunTys tau
 
       n_demands        = length demands
       n_arg_tys        = length arg_tys