diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2016-12-15 11:17:34 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-12-15 11:17:35 -0500 |
| commit | 1ec632f880ab730f99ae9286d5be8e2287330ca4 (patch) | |
| tree | 17a7a555b9274d0bfcf83a25a86aca4c6c021249 /compiler | |
| parent | 394231b301efb6b56654b0a480ab794fe3b7e4db (diff) | |
| download | haskell-1ec632f880ab730f99ae9286d5be8e2287330ca4.tar.gz | |
Fix pretty printing of MINIMAL signatures
Reviewers: austin, alanz, bgamari
Reviewed By: alanz, bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2836
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/hsSyn/HsBinds.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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) {- ************************************************************************ |