aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src
diff options
context:
space:
mode:
authorSimon Jakobi <simon.jakobi@gmail.com>2018-06-23 16:45:31 +0200
committerSimon Jakobi <simon.jakobi@gmail.com>2018-07-20 16:19:35 +0200
commite8542876e9c75a8616f92d47ef7946ff663e6275 (patch)
treecf658d0babb0832015d2abbacd659bd96e557fb0 /haddock-api/src
parent88aac156228f94e17b81d8bcfb961ddcde878489 (diff)
outOfScope: Recommend qualifying the identifier
(cherry picked from commit 73707ed58d879cc04cb644c5dab88c39ca1465b7)
Diffstat (limited to 'haddock-api/src')
-rw-r--r--haddock-api/src/Haddock/Interface/LexParseRn.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Interface/LexParseRn.hs b/haddock-api/src/Haddock/Interface/LexParseRn.hs
index 731f2a35..10616f33 100644
--- a/haddock-api/src/Haddock/Interface/LexParseRn.hs
+++ b/haddock-api/src/Haddock/Interface/LexParseRn.hs
@@ -163,7 +163,9 @@ outOfScope dflags x =
Exact name -> warnAndMonospace name -- Shouldn't happen since x is out of scope
where
warnAndMonospace a = do
- tell ["Warning: '" ++ showPpr dflags a ++ "' is out of scope."]
+ tell ["Warning: '" ++ showPpr dflags a ++ "' is out of scope.\n" ++
+ " If you qualify the identifier, haddock can try to link it\n" ++
+ " it anyway."]
pure (monospaced a)
monospaced a = DocMonospaced (DocString (showPpr dflags a))