From: simonpj@microsoft.com <unknown>
Date: Thu, 21 Oct 2010 17:02:32 +0000 (+0000)
Subject: White space only
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=4e04af2f78204749483631c243eacff28b52d01f;p=ghc-hetmet.git

White space only
---

diff --git a/compiler/deSugar/Match.lhs b/compiler/deSugar/Match.lhs
index aa2e9fe..1775562 100644
--- a/compiler/deSugar/Match.lhs
+++ b/compiler/deSugar/Match.lhs
@@ -280,13 +280,13 @@ match vars@(v:_) ty eqns
   = ASSERT( not (null eqns ) )
     do	{ 	-- Tidy the first pattern, generating
 		-- auxiliary bindings if necessary
-	  (aux_binds, tidy_eqns) <- mapAndUnzipM (tidyEqnInfo v) eqns
+          (aux_binds, tidy_eqns) <- mapAndUnzipM (tidyEqnInfo v) eqns
 
 		-- Group the equations and match each group in turn
-       ; let grouped = groupEquations tidy_eqns
+        ; let grouped = groupEquations tidy_eqns
 
          -- print the view patterns that are commoned up to help debug
-       ; ifDOptM Opt_D_dump_view_pattern_commoning (debug grouped)
+        ; ifDOptM Opt_D_dump_view_pattern_commoning (debug grouped)
 
 	; match_results <- mapM match_group grouped
 	; return (adjustMatchResult (foldr1 (.) aux_binds) $