diff options
author | Alan Zimmerman <alan.zimm@gmail.com> | 2017-05-26 17:06:11 +0200 |
---|---|---|
committer | Alan Zimmerman <alan.zimm@gmail.com> | 2017-05-28 12:53:57 +0200 |
commit | 3b23f680c2b1f80b693eb8896fb21e4bbf8edc7e (patch) | |
tree | 45dd95b517b0050ccfde463c10938321e1da75e4 /compiler/hsSyn/HsExpr.hs | |
parent | 09d5c993aae208e3d34a9e715297922b6ea42b3f (diff) | |
download | haskell-3b23f680c2b1f80b693eb8896fb21e4bbf8edc7e.tar.gz |
Remove HsContext from ppr_mono_ty, and remove ppParendHsType
This is a cleanup after Trac #13238, as the context was no longer being used.
Diffstat (limited to 'compiler/hsSyn/HsExpr.hs')
-rw-r--r-- | compiler/hsSyn/HsExpr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsExpr.hs b/compiler/hsSyn/HsExpr.hs index f32c24ee46..c281e6361c 100644 --- a/compiler/hsSyn/HsExpr.hs +++ b/compiler/hsSyn/HsExpr.hs @@ -1057,7 +1057,7 @@ ppr_apps fun args = hang (ppr_expr fun) 2 (sep (map pp args)) where pp (Left arg) = ppr arg pp (Right (LHsWcTypeX (HsWC { hswc_body = L _ arg }))) - = char '@' <> pprParendHsType arg + = char '@' <> pprHsType arg pprExternalSrcLoc :: (StringLiteral,(Int,Int),(Int,Int)) -> SDoc pprExternalSrcLoc (StringLiteral _ src,(n1,n2),(n3,n4)) |