diff options
Diffstat (limited to 'ghc/GHCi/UI/Info.hs')
-rw-r--r-- | ghc/GHCi/UI/Info.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ghc/GHCi/UI/Info.hs b/ghc/GHCi/UI/Info.hs index d42f019e5f..2bf061f3b5 100644 --- a/ghc/GHCi/UI/Info.hs +++ b/ghc/GHCi/UI/Info.hs @@ -75,6 +75,9 @@ data SpanInfo = SpanInfo -- locality, definition location, etc. } +instance Outputable SpanInfo where + ppr (SpanInfo s t i) = ppr s <+> ppr t <+> ppr i + -- | Test whether second span is contained in (or equal to) first span. -- This is basically 'containsSpan' for 'SpanInfo' containsSpanInfo :: SpanInfo -> SpanInfo -> Bool |