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:
7a49c2e
)
[project @ 2003-04-25 20:58:09 by panne]
author
panne
<unknown>
Fri, 25 Apr 2003 20:58:09 +0000
(20:58 +0000)
committer
panne
<unknown>
Fri, 25 Apr 2003 20:58:09 +0000
(20:58 +0000)
Unbreak 2nd stage
ghc/compiler/hsSyn/Convert.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/hsSyn/Convert.lhs
b/ghc/compiler/hsSyn/Convert.lhs
index
68bd4f9
..
4e610cb
100644
(file)
--- a/
ghc/compiler/hsSyn/Convert.lhs
+++ b/
ghc/compiler/hsSyn/Convert.lhs
@@
-219,7
+219,7
@@
cvtd x = panic "Illegal kind of declaration in where clause"
cvtclause :: Meta.Clause -> Hs.Match RdrName
cvtclause (Clause ps body wheres)
cvtclause :: Meta.Clause -> Hs.Match RdrName
cvtclause (Clause ps body wheres)
- = Match (map cvtp ps) Nothing (GRHSs (cvtguard body) (cvtdecs wheres) void)
+ = Hs.Match (map cvtp ps) Nothing (GRHSs (cvtguard body) (cvtdecs wheres) void)
@@
-240,8
+240,8
@@
cvtstmts (ParSt dss : ss) = ParStmt(map cvtstmts dss) : cvtstmts ss
cvtm :: Meta.Match -> Hs.Match RdrName
cvtm :: Meta.Match -> Hs.Match RdrName
-cvtm (Match p body wheres)
- = Match [cvtp p] Nothing (GRHSs (cvtguard body) (cvtdecs wheres) void)
+cvtm (Meta.Match p body wheres)
+ = Hs.Match [cvtp p] Nothing (GRHSs (cvtguard body) (cvtdecs wheres) void)
cvtguard :: Meta.RightHandSide -> [GRHS RdrName]
cvtguard (Guarded pairs) = map cvtpair pairs
cvtguard :: Meta.RightHandSide -> [GRHS RdrName]
cvtguard (Guarded pairs) = map cvtpair pairs