[commit: haddock] v2.17: UnfelpfulSpan line number omitted (27e08c8)

git at git.haskell.org git at git.haskell.org
Mon Nov 20 21:06:29 UTC 2017


Repository : ssh://git@git.haskell.org/haddock

On branch  : v2.17
Link       : http://git.haskell.org/haddock.git/commitdiff/27e08c8d3304405416bd0e89d0c1783d91925f05

>---------------------------------------------------------------

commit 27e08c8d3304405416bd0e89d0c1783d91925f05
Author: Oleg Grenrus <oleg.grenrus at iki.fi>
Date:   Tue May 24 16:19:46 2016 +0300

    UnfelpfulSpan line number omitted
    
    Kind of resolves https://github.com/haskell/haddock/issues/508


>---------------------------------------------------------------

27e08c8d3304405416bd0e89d0c1783d91925f05
 haddock-api/src/Haddock/Backends/Xhtml/Utils.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Utils.hs b/haddock-api/src/Haddock/Backends/Xhtml/Utils.hs
index 1d49807..391bb50 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



More information about the ghc-commits mailing list