X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsListComp.lhs;h=7b6651a14e38077721c1604df2b7755d920acb46;hb=0596517a9b4b2b32e5d375a986351102ac4540fc;hp=39b00d4a2c676b233f3b4f37453860bf83f673a5;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsListComp.lhs b/ghc/compiler/deSugar/DsListComp.lhs
index 39b00d4..7b6651a 100644
--- 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}
 
 %************************************************************************