Fix internal GHC module translation

Join the module and ident before trying to translate, and split them back apart again after translating.
jwiegley · Nov 12, 2013 · 53a63a1 · 53a63a1
1 parent 9b1025a
commit 53a63a1
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/inf-haskell.el b/inf-haskell.el
@@ -771,9 +771,11 @@ we load it."
                             (format "Find documentation of (default %s): " sym)
                           "Find documentation of: ")
                         nil nil sym))))
-  (setq sym (inferior-haskell-map-internal-ghc-ident sym))
   (let* (;; Find the module and look it up in the alist
          (module (inferior-haskell-get-module sym))
+         (full-name (inferior-haskell-map-internal-ghc-ident (concat module "." sym)))
+         (module (file-name-base full-name))
+         (sym (file-name-extension full-name))
          (alist-record (assoc module (inferior-haskell-module-alist)))
          (package (nth 1 alist-record))
          (file-name (concat (subst-char-in-string ?. ?- module) ".html"))