Satisfy Makefile warnings for haskell-complete-module

jwiegley · Jun 6, 2014 · e49c0e5 · e49c0e5
1 parent c285ee3
commit e49c0e5
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/Makefile b/Makefile
@@ -27,6 +27,7 @@ ELFILES = \
 	haskell-move-nested.el \
 	haskell-navigate-imports.el \
 	haskell-package.el \
+	haskell-complete-module.el \
 	haskell-process.el \
 	haskell-session.el \
 	haskell-show.el \

diff --git a/haskell-complete-module.el b/haskell-complete-module.el
@@ -17,6 +17,8 @@
 
 ;;; Code:
 
+(require 'cl)
+
 (defcustom haskell-complete-module-preferred
   '()
   "Override ordering of module results by specifying preferred modules."
@@ -50,13 +52,13 @@
                                                 " | ")
                                      "}"))))
         (case key
-          ('backspace (progn (unless (null stack)
+          (backspace (progn (unless (null stack)
                                (setq candidates (pop stack)))
                              (unless (string= "" pattern)
                                (setq pattern (substring pattern 0 -1)))))
-          ('return (setq result (car candidates)))
-          ('left (setq candidates (append (last candidates) (butlast candidates))))
-          ('right (setq candidates (append (cdr candidates) (list (car candidates)))))
+          (return (setq result (car candidates)))
+          (left (setq candidates (append (last candidates) (butlast candidates))))
+          (right (setq candidates (append (cdr candidates) (list (car candidates)))))
           (t (when (characterp key)
                (let ((char (char-to-string key)))
                  (when (string-match "[A-Za-z0-9_'.]+" char)