diff options
| author | Oleg Grenrus <oleg.grenrus@iki.fi> | 2016-05-24 16:19:46 +0300 |
|---|---|---|
| committer | Oleg Grenrus <oleg.grenrus@iki.fi> | 2016-05-24 16:19:48 +0300 |
| commit | b8e3380f80da15b1e384ff56f992baac3fd7f3ee (patch) | |
| tree | bc2f291c2202861c673775d47c90565e51a22844 /haddock-api/src/Haddock/Backends/Xhtml | |
| parent | af1a8689da1990da9a152ae8a0e51976f2a27ff6 (diff) | |
UnfelpfulSpan line number omitted
Kind of resolves https://github.com/haskell/haddock/issues/508
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Utils.hs | 3 |
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 |