Fixed typo and moved suggested-already.

Author: alexanderkjeldaas

haskell-process.el

@@ -873,9 +873,10 @@ 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 ((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)))
@@ -902,7 +903,6 @@ from `module-buffer'."
 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)))
                   ;; Skip qualification.
                   (if (string-match "^[A-Za-z0-9_'.]+\\.\\(.+\\)$" i)
@@ -916,7 +916,6 @@ now."
 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)))
                   ;; Skip qualification.
                   (if (string-match "^[A-Za-z0-9_'.]+\\.\\(.+\\)$" i)