diff options
Diffstat (limited to 'compiler/hsSyn/HsLit.hs')
| -rw-r--r-- | compiler/hsSyn/HsLit.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/hsSyn/HsLit.hs b/compiler/hsSyn/HsLit.hs index 4fa0a64afd..18746c057a 100644 --- a/compiler/hsSyn/HsLit.hs +++ b/compiler/hsSyn/HsLit.hs @@ -23,7 +23,7 @@ import BasicTypes ( FractionalLit(..),SourceText ) import Type ( Type ) import Outputable import FastString -import PlaceHolder ( PostTc,PostRn,DataId ) +import PlaceHolder ( PostTc,PostRn,DataId,OutputableBndrId ) import Data.ByteString (ByteString) import Data.Data hiding ( Fixity ) @@ -165,7 +165,7 @@ instance Outputable HsLit where ppr (HsWord64Prim _ w) = pprPrimWord64 w -- in debug mode, print the expression that it's resolved to, too -instance OutputableBndr id => Outputable (HsOverLit id) where +instance (OutputableBndrId id) => Outputable (HsOverLit id) where ppr (OverLit {ol_val=val, ol_witness=witness}) = ppr val <+> (ifPprDebug (parens (pprExpr witness))) |