projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c5a2eda
)
[project @ 2003-12-10 17:35:48 by simonmar]
author
simonmar
<unknown>
Wed, 10 Dec 2003 17:35:48 +0000
(17:35 +0000)
committer
simonmar
<unknown>
Wed, 10 Dec 2003 17:35:48 +0000
(17:35 +0000)
oops, forgot a reverse
ghc/compiler/parser/RdrHsSyn.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/parser/RdrHsSyn.lhs
b/ghc/compiler/parser/RdrHsSyn.lhs
index
caad5ed
..
01df302
100644
(file)
--- 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)
= 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
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)
getMonoBind bind binds = (bind, binds)