From: simonmar <unknown>
Date: Wed, 10 Dec 2003 17:35:48 +0000 (+0000)
Subject: [project @ 2003-12-10 17:35:48 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~207
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=298a8b8129dd3ef637eb18d5d83d7a752d845598

[project @ 2003-12-10 17:35:48 by simonmar]
oops, forgot a reverse
---

diff --git a/ghc/compiler/parser/RdrHsSyn.lhs b/ghc/compiler/parser/RdrHsSyn.lhs
index caad5ed..01df302 100644
--- a/ghc/compiler/parser/RdrHsSyn.lhs
+++ b/ghc/compiler/parser/RdrHsSyn.lhs
@@ -385,11 +385,11 @@ getMonoBind (L loc (FunBind lf@(L _ f) inf mtchs)) binds
   = go mtchs loc binds
   where
     go mtchs1 loc1 (L loc2 (ValD (FunBind f2 inf2 mtchs2)) : binds)
-	| f == unLoc f2 = go (mtchs2 ++ mtchs1) loc binds
-	-- Remember binds is reversed, so glue mtchs2 on the front
-	-- and use loc2 as the final location
+	| f == unLoc f2 = go (mtchs2++mtchs1) loc binds
 	where loc = combineSrcSpans loc1 loc2
-    go mtchs1 loc binds = (L loc (FunBind lf inf mtchs1), binds)
+    go mtchs1 loc binds
+	= (L loc (FunBind lf inf (reverse mtchs1)), binds)
+	-- reverse the final matches, to get it back in the right order
 
 getMonoBind bind binds = (bind, binds)