diff options
| author | Sebastian Méric de Bellefon <arnaudpourseb@gmail.com> | 2016-06-06 20:26:30 -0400 |
|---|---|---|
| committer | Sebastian Méric de Bellefon <arnaudpourseb@gmail.com> | 2016-06-06 20:26:30 -0400 |
| commit | d6529419df9ef6f48d20c0a2c8e0f974fb2deb03 (patch) | |
| tree | b2efde46426a4f0174b83061a4d5c057c63e08b0 /haddock-api/src/Haddock/Backends/Xhtml | |
| parent | 8d47c8b733a0b9406d99a97c7eaeba3d6b51ec7c (diff) | |
| parent | 7c60df10642d90d7205cb9c4296903b8de094029 (diff) | |
Merge pull request #512 from phadej/oleg-fixes
Fixes for #508 and #510
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 |