From 1ec632f880ab730f99ae9286d5be8e2287330ca4 Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Thu, 15 Dec 2016 11:17:34 -0500 Subject: Fix pretty printing of MINIMAL signatures Reviewers: austin, alanz, bgamari Reviewed By: alanz, bgamari Subscribers: thomie Differential Revision: https://phabricator.haskell.org/D2836 --- compiler/hsSyn/HsBinds.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'compiler') diff --git a/compiler/hsSyn/HsBinds.hs b/compiler/hsSyn/HsBinds.hs index 5933df8006..421a358669 100644 --- a/compiler/hsSyn/HsBinds.hs +++ b/compiler/hsSyn/HsBinds.hs @@ -972,7 +972,8 @@ ppr_sig (InlineSig var inl) <+> pprPrefixOcc (unLoc var)) ppr_sig (SpecInstSig src ty) = pragSrcBrackets src "{-# SPECIALISE" (text "instance" <+> ppr ty) -ppr_sig (MinimalSig _ bf) = pragBrackets (pprMinimalSig bf) +ppr_sig (MinimalSig src bf) + = pragSrcBrackets src "{-# MINIMAL" (pprMinimalSig bf) ppr_sig (PatSynSig names sig_ty) = text "pattern" <+> pprVarSig (map unLoc names) (ppr sig_ty) ppr_sig (SCCFunSig src fn mlabel) @@ -1013,7 +1014,7 @@ instance Outputable TcSpecPrag where pprMinimalSig :: (OutputableBndr name) => LBooleanFormula (Located name) -> SDoc -pprMinimalSig (L _ bf) = text "MINIMAL" <+> ppr (fmap unLoc bf) +pprMinimalSig (L _ bf) = ppr (fmap unLoc bf) {- ************************************************************************ -- cgit v1.2.1