projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-09-27 12:42:42 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
deSugar
/
DsBinds.lhs
diff --git
a/ghc/compiler/deSugar/DsBinds.lhs
b/ghc/compiler/deSugar/DsBinds.lhs
index
a62b969
..
918f0e9
100644
(file)
--- a/
ghc/compiler/deSugar/DsBinds.lhs
+++ b/
ghc/compiler/deSugar/DsBinds.lhs
@@
-78,7
+78,7
@@
dsMonoBinds _ (VarMonoBind var expr) rest
dsMonoBinds auto_scc (FunMonoBind fun _ matches locn) rest
= putSrcLocDs locn $
dsMonoBinds auto_scc (FunMonoBind fun _ matches locn) rest
= putSrcLocDs locn $
- matchWrapper (FunRhs fun) matches `thenDs` \ (args, body) ->
+ matchWrapper (FunRhs (idName fun)) matches `thenDs` \ (args, body) ->
addAutoScc auto_scc (fun, mkLams args body) `thenDs` \ pair ->
returnDs (pair : rest)
addAutoScc auto_scc (fun, mkLams args body) `thenDs` \ pair ->
returnDs (pair : rest)