Strip out M./S./L. typical module prefixes for suggestion functionality

jwiegley · Jan 20, 2014 · ab7ee92 · ab7ee92
1 parent 38e8c06
commit ab7ee92
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/haskell-process.el b/haskell-process.el
@@ -735,7 +735,10 @@ file. Prompts the user before doing so."
   "Given an out of scope identifier, Hoogle for that identifier,
 and if a result comes back, suggest to import that identifier
 now."
-  (let* ((ident (match-string 1 msg))
+  (let* ((ident (let ((i (match-string 1 msg)))
+                  (if (string-match "^[A-Z]\\.\\(.+\\)$" i)
+                      (match-string 1 i)
+                    i)))
          (modules (haskell-process-hoogle-ident ident))
          (module (cond
                   ((> (length modules) 1)