diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2020-10-19 10:36:10 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-10-19 18:16:58 -0400 |
commit | 9648d680b4b07d48cf8741e0847abf07b95c7c1d (patch) | |
tree | 5ef1b877e580a6bccde4d74b91abced771778ba3 /compiler/GHC/Utils/Outputable.hs | |
parent | b5b3e34ec39fc89a0bcd0b60cf9a4962c89ba72f (diff) | |
download | haskell-9648d680b4b07d48cf8741e0847abf07b95c7c1d.tar.gz |
Remove pdocPrec
pdocPrec was only used in GHC.Cmm.DebugBlock.pprUnwindExpr, so remove
it. OutputableP becomes a one-function class which might be better for
performance.
Diffstat (limited to 'compiler/GHC/Utils/Outputable.hs')
-rw-r--r-- | compiler/GHC/Utils/Outputable.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/compiler/GHC/Utils/Outputable.hs b/compiler/GHC/Utils/Outputable.hs index 025f2bdae9..ea9c8daecd 100644 --- a/compiler/GHC/Utils/Outputable.hs +++ b/compiler/GHC/Utils/Outputable.hs @@ -1045,12 +1045,6 @@ instance Outputable Extension where -- See Note [The OutputableP class] class OutputableP env a where pdoc :: env -> a -> SDoc - pdocPrec :: Rational -> env -> a -> SDoc - -- 0 binds least tightly - -- We use Rational because there is always a - -- Rational between any other two Rationals - pdoc = pdocPrec 0 - pdocPrec _ = pdoc -- | Wrapper for types having a Outputable instance when an OutputableP instance -- is required. |