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/rename | |
| 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/rename')
| -rw-r--r-- | compiler/rename/RnBinds.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/rename/RnBinds.hs b/compiler/rename/RnBinds.hs index f91ca52960..7f0490a68e 100644 --- a/compiler/rename/RnBinds.hs +++ b/compiler/rename/RnBinds.hs @@ -1166,8 +1166,8 @@ rnMatch' ctxt rnBody match@(Match { m_ctxt = mf, m_pats = pats ; rnPats ctxt pats $ \ pats' -> do { (grhss', grhss_fvs) <- rnGRHSs ctxt rnBody grhss ; let mf' = case (ctxt,mf) of - (FunRhs (L _ funid) _ _,FunRhs (L lf _) _ _) - -> FunRhs (L lf funid) fixity NoSrcStrict -- TODO: Is this right? + (FunRhs (L _ funid) _,FunRhs (L lf _) _) + -> FunRhs (L lf funid) fixity _ -> ctxt ; return (Match { m_ctxt = mf', m_pats = pats' , m_type = Nothing, m_grhss = grhss'}, grhss_fvs ) }} |