diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2020-09-30 18:59:11 +0300 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2020-09-30 22:16:43 +0300 |
| commit | 60eff54f397d3b5b29ea4ef50b47d6da6d18c395 (patch) | |
| tree | d9d14432f72681324d4647fc8791d57c1d8b7227 /compiler/GHC/Utils/Outputable.hs | |
| parent | 4b91e136c2e4d464f4cc7da81b344d5d96336d60 (diff) | |
| download | haskell-wip/strict-ttg.tar.gz | |
Fix test failureswip/strict-ttg
Diffstat (limited to 'compiler/GHC/Utils/Outputable.hs')
| -rw-r--r-- | compiler/GHC/Utils/Outputable.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/GHC/Utils/Outputable.hs b/compiler/GHC/Utils/Outputable.hs index 6dd5b88fbb..52595eaa3e 100644 --- a/compiler/GHC/Utils/Outputable.hs +++ b/compiler/GHC/Utils/Outputable.hs @@ -126,6 +126,7 @@ import qualified Data.List.NonEmpty as NEL import GHC.Fingerprint import GHC.Show ( showMultiLineString ) import GHC.Utils.Exception +import GHC.Utils.Misc (Box(Box)) import GHC.Exts (oneShot) {- @@ -859,6 +860,9 @@ instance (Outputable a) => Outputable (NonEmpty a) where instance (Outputable a) => Outputable (Set a) where ppr s = braces (fsep (punctuate comma (map ppr (Set.toList s)))) +instance Outputable a => Outputable (Box a) where + ppr (Box a) = ppr a + instance (Outputable a, Outputable b) => Outputable (a, b) where ppr (x,y) = parens (sep [ppr x <> comma, ppr y]) |