From: simonpj <unknown>
Date: Thu, 25 Jan 2001 17:21:59 +0000 (+0000)
Subject: [project @ 2001-01-25 17:21:59 by simonpj]
X-Git-Tag: Approximately_9120_patches~2822
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d64bd73848d5b6c5ab44d3aaffb98abba44fa504;p=ghc-hetmet.git

[project @ 2001-01-25 17:21:59 by simonpj]
Formatting only
---

diff --git a/ghc/compiler/deSugar/DsListComp.lhs b/ghc/compiler/deSugar/DsListComp.lhs
index 633c137..68de254 100644
--- a/ghc/compiler/deSugar/DsListComp.lhs
+++ b/ghc/compiler/deSugar/DsListComp.lhs
@@ -53,9 +53,7 @@ dsListComp quals elt_ty
         c_ty = mkFunTys [elt_ty, n_ty] n_ty
     in
     newSysLocalsDs [c_ty,n_ty]		`thenDs` \ [c, n] ->
-
     dfListComp c n quals		`thenDs` \ result ->
-
     dsLookupGlobalValue buildName	`thenDs` \ build_id ->
     returnDs (Var build_id `App` Type elt_ty 
 			   `App` mkLams [n_tyvar, c, n] result)