From d64bd73848d5b6c5ab44d3aaffb98abba44fa504 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 25 Jan 2001 17:21:59 +0000
Subject: [PATCH] [project @ 2001-01-25 17:21:59 by simonpj] Formatting only

---
 ghc/compiler/deSugar/DsListComp.lhs |    2 --
 1 file changed, 2 deletions(-)

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