diff options
| author | partain <unknown> | 1996-04-09 10:28:48 +0000 |
|---|---|---|
| committer | partain <unknown> | 1996-04-09 10:28:48 +0000 |
| commit | b4255f2c320f852d7dfb0afc0bc9f64765aece0c (patch) | |
| tree | 6a7a9f23229fe841f97d52e1faae4a26337d94ac /ghc/compiler/rename/RnNames.lhs | |
| parent | 7b0181919416d8f04324575b7e17031ca692f5b0 (diff) | |
| download | haskell-b4255f2c320f852d7dfb0afc0bc9f64765aece0c.tar.gz | |
[project @ 1996-04-09 10:27:46 by partain]
Sansom 1.3 changes through 960408
Diffstat (limited to 'ghc/compiler/rename/RnNames.lhs')
| -rw-r--r-- | ghc/compiler/rename/RnNames.lhs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs index b0ec1905be..dcbf83195f 100644 --- a/ghc/compiler/rename/RnNames.lhs +++ b/ghc/compiler/rename/RnNames.lhs @@ -189,7 +189,7 @@ doBind (RecBind mbind) = doMBinds mbind doMBinds EmptyMonoBinds = returnRn emptyBag doMBinds (PatMonoBind pat grhss_and_binds locn) = doPat locn pat -doMBinds (FunMonoBind p_name _ locn) = doName locn p_name +doMBinds (FunMonoBind p_name _ _ locn) = doName locn p_name doMBinds (AndMonoBinds mbinds1 mbinds2) = andRn unionBags (doMBinds mbinds1) (doMBinds mbinds2) @@ -214,8 +214,7 @@ doPat locn (RecPatIn name fields) = mapRn (doField locn) fields `thenRn` \ fields_s -> returnRn (unionManyBags fields_s) -doField locn (field, _, True{-pun-}) = doName locn field -doField locn (field, pat, _) = doPat locn pat +doField locn (_, pat, _) = doPat locn pat doName locn rdr = newGlobalName locn Nothing rdr `thenRn` \ name -> |