aboutsummaryrefslogtreecommitdiff
path: root/haddock-api
diff options
context:
space:
mode:
authorOleg Grenrus <oleg.grenrus@iki.fi>2016-05-24 16:19:46 +0300
committerOleg Grenrus <oleg.grenrus@iki.fi>2016-05-24 16:19:48 +0300
commitb8e3380f80da15b1e384ff56f992baac3fd7f3ee (patch)
treebc2f291c2202861c673775d47c90565e51a22844 /haddock-api
parentaf1a8689da1990da9a152ae8a0e51976f2a27ff6 (diff)
UnfelpfulSpan line number omitted
Kind of resolves https://github.com/haskell/haddock/issues/508
Diffstat (limited to 'haddock-api')
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml/Utils.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Utils.hs b/haddock-api/src/Haddock/Backends/Xhtml/Utils.hs
index 1d49807d..391bb50c 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml/Utils.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml/Utils.hs
@@ -75,8 +75,7 @@ spliceURL' maybe_file maybe_mod maybe_name maybe_loc = run
case span_ of
RealSrcSpan span__ ->
show $ srcSpanStartLine span__
- UnhelpfulSpan _ ->
- error "spliceURL UnhelpfulSpan"
+ UnhelpfulSpan _ -> ""
run "" = ""
run ('%':'M':rest) = mdl ++ run rest