summaryrefslogtreecommitdiff
path: root/compiler/hsSyn/HsExpr.hs
diff options
context:
space:
mode:
authorAlan Zimmerman <alan.zimm@gmail.com>2017-05-26 17:06:11 +0200
committerAlan Zimmerman <alan.zimm@gmail.com>2017-05-28 12:53:57 +0200
commit3b23f680c2b1f80b693eb8896fb21e4bbf8edc7e (patch)
tree45dd95b517b0050ccfde463c10938321e1da75e4 /compiler/hsSyn/HsExpr.hs
parent09d5c993aae208e3d34a9e715297922b6ea42b3f (diff)
downloadhaskell-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.hs2
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))