Always use the ident as an anchor

Instead of only using it when browsing to an external location, use it for the web URL *and* the local file path.
jwiegley · Nov 12, 2013 · 43f2747 · 43f2747
1 parent 0ff0841
commit 43f2747
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/inf-haskell.el b/inf-haskell.el
@@ -784,11 +784,11 @@ we load it."
          (url (if (or (eq inferior-haskell-use-web-docs 'always)
                       (and (not (file-exists-p local-path))
                            (eq inferior-haskell-use-web-docs 'fallback)))
-                  (concat inferior-haskell-web-docs-base package "/" file-name
-                          ;; Jump to the symbol anchor within Haddock.
-                          "#v:" sym)
+                  (concat inferior-haskell-web-docs-base package "/" file-name)
                 (and (file-exists-p local-path)
-                     (concat "file://" local-path)))))
+                     (concat "file://" local-path))))
+         ;; Jump to the symbol within Haddock.
+         (url (concat url "#v:" sym)))
     (if url (browse-url url) (error "Local file doesn't exist"))))
 
 (provide 'inf-haskell)