diff options
| author | Oleg Grenrus <oleg.grenrus@iki.fi> | 2016-02-01 14:32:54 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-02-01 14:33:13 +0100 |
| commit | 2ad46a860f0b648aaeff224109b6045da30304d7 (patch) | |
| tree | dc9f88370cfde090a5b3687f9c9f9f52adc9c8f9 /compiler/utils/Outputable.hs | |
| parent | ba88aab0d1223cd5066a66500360df4bddb159d1 (diff) | |
| download | haskell-2ad46a860f0b648aaeff224109b6045da30304d7.tar.gz | |
Add some Outputable instances
Reviewers: austin, bgamari
Reviewed By: bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1865
Diffstat (limited to 'compiler/utils/Outputable.hs')
| -rw-r--r-- | compiler/utils/Outputable.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/utils/Outputable.hs b/compiler/utils/Outputable.hs index 1abb1c5b81..bf0cc905fc 100644 --- a/compiler/utils/Outputable.hs +++ b/compiler/utils/Outputable.hs @@ -95,6 +95,7 @@ import Platform import Pretty ( Doc, Mode(..) ) import Panic import GHC.Serialized +import GHC.LanguageExtensions (Extension) import Data.ByteString (ByteString) import qualified Data.ByteString as BS @@ -815,6 +816,9 @@ instance Outputable a => Outputable (SCC a) where instance Outputable Serialized where ppr (Serialized the_type bytes) = int (length bytes) <+> text "of type" <+> text (show the_type) +instance Outputable Extension where + ppr = text . show + {- ************************************************************************ * * |