diff options
| author | simonpj@microsoft.com <unknown> | 2006-09-29 14:39:10 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2006-09-29 14:39:10 +0000 |
| commit | e6d057711f4d6d6ff6342c39fa2b9e44d25447f1 (patch) | |
| tree | 2bed37a9ed606633b1eba10e6f1881f74a822ef3 /compiler/deSugar/DsArrows.lhs | |
| parent | f80b81f8b56ebd0fa0f7f82494a5090e9ab64256 (diff) | |
| download | haskell-e6d057711f4d6d6ff6342c39fa2b9e44d25447f1.tar.gz | |
Global renamings in HsSyn
Diffstat (limited to 'compiler/deSugar/DsArrows.lhs')
| -rw-r--r-- | compiler/deSugar/DsArrows.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/deSugar/DsArrows.lhs b/compiler/deSugar/DsArrows.lhs index d477eff08b..4251b2011c 100644 --- a/compiler/deSugar/DsArrows.lhs +++ b/compiler/deSugar/DsArrows.lhs @@ -513,8 +513,8 @@ dsCmd ids local_vars env_ids stack res_ty (HsCase exp (MatchGroup matches match_ let left_id = HsVar (dataConWrapId left_con) right_id = HsVar (dataConWrapId right_con) - left_expr ty1 ty2 e = noLoc $ HsApp (noLoc $ HsCoerce (mkCoTyApps [ty1, ty2]) left_id ) e - right_expr ty1 ty2 e = noLoc $ HsApp (noLoc $ HsCoerce (mkCoTyApps [ty1, ty2]) right_id) e + left_expr ty1 ty2 e = noLoc $ HsApp (noLoc $ HsWrap (mkWpTyApps [ty1, ty2]) left_id ) e + right_expr ty1 ty2 e = noLoc $ HsApp (noLoc $ HsWrap (mkWpTyApps [ty1, ty2]) right_id) e -- Prefix each tuple with a distinct series of Left's and Right's, -- in a balanced way, keeping track of the types. |