[project @ 1996-03-21 12:46:33 by partain]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsListComp.lhs

diff --git a/ghc/compiler/deSugar/DsListComp.lhs b/ghc/compiler/deSugar/DsListComp.lhs
index 39b00d4..7b6651a 100644 (file)
--- a/ghc/compiler/deSugar/DsListComp.lhs
+++ b/ghc/compiler/deSugar/DsListComp.lhs
@@ -67,7 +67,7 @@ dsListComp expr quals
     new_alpha_tyvar :: DsM (TyVar, Type)
     new_alpha_tyvar
       = newTyVarsDs [alphaTyVar]    `thenDs` \ [new_ty] ->
-       returnDs (new_ty,mkTyVarTy new_ty)
+       returnDs (new_ty, mkTyVarTy new_ty)
 \end{code}
 
 %************************************************************************