diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-05-12 16:59:33 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-05-12 18:26:51 -0400 |
| commit | 3032ae81dd14c2eaefa9ecd8880dafa9bda104d9 (patch) | |
| tree | 0c2dfb95e9faf6f497e2ec4d54893db6c1450a45 /compiler/deSugar/Check.hs | |
| parent | 8fd7442efcf6ef0a274f51657633818bd878eb5c (diff) | |
| download | haskell-3032ae81dd14c2eaefa9ecd8880dafa9bda104d9.tar.gz | |
Revert "Treat banged bindings as FunBinds"
This partially reverts commit 372995364c52eef15066132d7d1ea8b6760034e6 as it
doesn't actually fix #13594. Namely it does not revert the mkPrefixFunRhs
refactoring since this is rather independent from the functional changes.
Going to try again with a whole working patch
Diffstat (limited to 'compiler/deSugar/Check.hs')
| -rw-r--r-- | compiler/deSugar/Check.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/deSugar/Check.hs b/compiler/deSugar/Check.hs index 32158565e9..4b01aac323 100644 --- a/compiler/deSugar/Check.hs +++ b/compiler/deSugar/Check.hs @@ -1742,9 +1742,9 @@ pp_context singular (DsMatchContext kind _loc) msg rest_of_msg_fun (ppr_match, pref) = case kind of - FunRhs (L _ fun) _ _ -> (pprMatchContext kind, - \ pp -> ppr fun <+> pp) - _ -> (pprMatchContext kind, \ pp -> pp) + FunRhs (L _ fun) _ -> (pprMatchContext kind, + \ pp -> ppr fun <+> pp) + _ -> (pprMatchContext kind, \ pp -> pp) ppr_pats :: HsMatchContext Name -> [Pat Id] -> SDoc ppr_pats kind pats |