diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-08-05 14:18:22 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-08-05 14:18:22 +0100 |
| commit | 0e7aad2c6cda3db0a050bfe8afc56bbb2815e30c (patch) | |
| tree | 14ebed297b997dffec35dcb22ab50614c8eb1aec | |
| parent | 89900ff3096f34f1212dfe2b1dfd32adf5b3bf1b (diff) | |
| download | haskell-0e7aad2c6cda3db0a050bfe8afc56bbb2815e30c.tar.gz | |
De-orphan the Outputable Char instance
| -rw-r--r-- | compiler/hsSyn/HsSyn.lhs | 4 | ||||
| -rw-r--r-- | compiler/utils/Outputable.lhs | 3 |
2 files changed, 3 insertions, 4 deletions
diff --git a/compiler/hsSyn/HsSyn.lhs b/compiler/hsSyn/HsSyn.lhs index b770fac30b..aa487396b5 100644 --- a/compiler/hsSyn/HsSyn.lhs +++ b/compiler/hsSyn/HsSyn.lhs @@ -9,7 +9,6 @@ which is declared in the various \tr{Hs*} modules. This module, therefore, is almost nothing but re-exporting. \begin{code} -{-# OPTIONS_GHC -fno-warn-orphans #-} {-# OPTIONS -fno-warn-tabs #-} -- The above warning supression flag is a temporary kludge. -- While working on this module you are encouraged to remove it and @@ -96,9 +95,6 @@ data HsExtCore name -- Read from Foo.hcr \begin{code} -instance Outputable Char where - ppr c = text [c] - instance (OutputableBndr name, HasOccName name) => Outputable (HsModule name) where diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 35abf5be07..2ac49b33ab 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -597,6 +597,9 @@ class Outputable a where \end{code} \begin{code} +instance Outputable Char where + ppr c = text [c] + instance Outputable Bool where ppr True = ptext (sLit "True") ppr False = ptext (sLit "False") |