Fixed typo and moved suggested-already.

Author: alexanderkjeldaas

haskell-process.el

@@ -873,9 +873,11 @@ from `module-buffer'."
                    cabal-file))
       (haskell-cabal-add-dependency package-name version nil t))))
 
-(defun haskell-process-suggest-imports (imports ident)
-  "Given a list of IMPORTS, suggest adding them to the import section."
-  (let ((module (cond ((> (length modules) 1)
+(defun haskell-process-suggest-imports (modules ident)
+  "Given a list of MODULES, suggest adding them to the import section."
+  (let ((process (haskell-session-process session))
+        (suggested-already (haskell-process-suggested-imports process))
+        (module (cond ((> (length modules) 1)
                        (when (y-or-n-p (format "Identifier `%s' not in scope, choose module to import?"
                                                ident))
                          (haskell-complete-module-read "Module: " modules)))
@@ -901,9 +903,7 @@ from `module-buffer'."
   "Given an out of scope identifier, Hoogle for that identifier,
 and if a result comes back, suggest to import that identifier
 now."
-  (let* ((process (haskell-session-process session))
-         (suggested-already (haskell-process-suggested-imports process))
-         (ident (let ((i (match-string 1 msg)))
+  (let* ((ident (let ((i (match-string 1 msg)))
                   ;; Skip qualification.
                   (if (string-match "^[A-Za-z0-9_'.]+\\.\\(.+\\)$" i)
                       (match-string 1 i)
@@ -915,9 +915,7 @@ now."
   "Given an out of scope identifier, Hayoo for that identifier,
 and if a result comes back, suggest to import that identifier
 now."
-  (let* ((process (haskell-session-process session))
-         (suggested-already (haskell-process-suggested-imports process))
-         (ident (let ((i (match-string 1 msg)))
+  (let* ((ident (let ((i (match-string 1 msg)))
                   ;; Skip qualification.
                   (if (string-match "^[A-Za-z0-9_'.]+\\.\\(.+\\)$" i)
                       (match-string 1 i)