diff options
Diffstat (limited to 'compiler/basicTypes/SrcLoc.hs')
| -rw-r--r-- | compiler/basicTypes/SrcLoc.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/compiler/basicTypes/SrcLoc.hs b/compiler/basicTypes/SrcLoc.hs index 362a925992..65d7e71ac9 100644 --- a/compiler/basicTypes/SrcLoc.hs +++ b/compiler/basicTypes/SrcLoc.hs @@ -41,6 +41,7 @@ module SrcLoc ( mkGeneralSrcSpan, mkSrcSpan, mkRealSrcSpan, noSrcSpan, wiredInSrcSpan, -- Something wired into the compiler + interactiveSrcSpan, srcLocSpan, realSrcLocSpan, combineSrcSpans, @@ -131,7 +132,7 @@ mkRealSrcLoc x line col = SrcLoc x line col noSrcLoc, generatedSrcLoc, interactiveSrcLoc :: SrcLoc noSrcLoc = UnhelpfulLoc (fsLit "<no location info>") generatedSrcLoc = UnhelpfulLoc (fsLit "<compiler-generated code>") -interactiveSrcLoc = UnhelpfulLoc (fsLit "<interactive session>") +interactiveSrcLoc = UnhelpfulLoc (fsLit "<interactive>") -- | Creates a "bad" 'SrcLoc' that has no detailed information about its location mkGeneralSrcLoc :: FastString -> SrcLoc @@ -278,9 +279,10 @@ data SrcSpan = -- derive Show for Token -- | Built-in "bad" 'SrcSpan's for common sources of location uncertainty -noSrcSpan, wiredInSrcSpan :: SrcSpan -noSrcSpan = UnhelpfulSpan (fsLit "<no location info>") -wiredInSrcSpan = UnhelpfulSpan (fsLit "<wired into compiler>") +noSrcSpan, wiredInSrcSpan, interactiveSrcSpan :: SrcSpan +noSrcSpan = UnhelpfulSpan (fsLit "<no location info>") +wiredInSrcSpan = UnhelpfulSpan (fsLit "<wired into compiler>") +interactiveSrcSpan = UnhelpfulSpan (fsLit "<interactive>") -- | Create a "bad" 'SrcSpan' that has not location information mkGeneralSrcSpan :: FastString -> SrcSpan |