Applicative hack.

GHCMod.hs

@@ -100,7 +100,7 @@ main = flip catches handlers $ do
          mods  <- listModules opt
          langs <- listLanguages opt
          flags <- listFlags opt
-         pre   <- browseModule opt "Prelude"
+         pre   <- concat <$> mapM (browseModule opt) preBrowsedModules
          return $ mods ++ langs ++ flags ++ pre
       cmd      -> throw (NoSuchCommand cmd)
     putStr res
@@ -138,3 +138,17 @@ toLisp ms = "(" ++ unwords quoted ++ ")\n"
 
 toPlain :: [String] -> String
 toPlain = unlines
+
+----------------------------------------------------------------
+
+preBrowsedModules :: [String]
+preBrowsedModules = [
+    "Prelude"
+  , "Control.Applicative"
+  , "Control.Monad"
+  , "Control.Exception"
+  , "Data.Char"
+  , "Data.List"
+  , "Data.Maybe"
+  , "System.IO"
+  ]

elisp/ghc-comp.el

@@ -53,19 +53,40 @@ unloaded modules are loaded")
 
 (defconst ghc-keyword-prefix "ghc-keyword-")
 (defvar ghc-keyword-Prelude nil)
+(defvar ghc-keyword-Control.Applicative nil)
+(defvar ghc-keyword-Control.Monad nil)
+(defvar ghc-keyword-Control.Exception nil)
+(defvar ghc-keyword-Data.Char nil)
+(defvar ghc-keyword-Data.List nil)
+(defvar ghc-keyword-Data.Maybe nil)
+(defvar ghc-keyword-System.IO nil)
+
 (defvar ghc-loaded-module nil)
 
 (defun ghc-comp-init ()
   (let* ((syms '(ghc-module-names
 		ghc-language-extensions
 		ghc-option-flags
-		ghc-keyword-Prelude))
+		ghc-keyword-Prelude
+		ghc-keyword-Control.Applicative
+		ghc-keyword-Control.Monad
+		ghc-keyword-Control.Exception
+		ghc-keyword-Data.Char
+		ghc-keyword-Data.List
+		ghc-keyword-Data.Maybe
+		ghc-keyword-System.IO))
 	 (vals (ghc-boot (length syms))))
     (ghc-set syms vals))
   (ghc-add ghc-module-names "qualified")
   (ghc-add ghc-module-names "hiding")
-  ;; (ghc-add ghc-language-extensions "LANGUAGE")
+  (ghc-merge-keywords '("Prelude"
-  (ghc-merge-keywords '("Prelude"))
+			"Control.Applicative"
+			"Control.Monad"
+			"Control.Exception"
+			"Data.Char"
+			"Data.List"
+			"Data.Maybe"
+			"System.IO"))
   (run-with-idle-timer ghc-idle-timer-interval 'repeat 'ghc-idle-timer))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

elisp/ghc-ins-mod.el

@@ -39,12 +39,23 @@
   (unless (re-search-forward "^$" nil t)
     (forward-line)))
 
+;; To avoid Data.Functor
+(defvar ghc-applicative-operators '("<$>" "<$" "<*>" "<**>" "<*" "*>" "<|>"))
+
 (defun ghc-function-to-modules (fn)
+  (if (member fn ghc-applicative-operators)
+      '("Control.Applicative")
+    (ghc-function-to-modules-hoogle fn)))
+
+(defun ghc-function-to-modules-hoogle (fn)
   (with-temp-buffer
-    (call-process ghc-hoogle-command nil t nil "search" fn)
+    (let* ((fn1 (if (string-match "^[a-zA-Z0-9'_]+$" fn)
-    (goto-char (point-min))
+		    fn
-    (let ((regex (concat "^\\([a-zA-Z0-9.]+\\) " fn " "))
+		  (concat "(" fn ")")))
-	  ret)
+	   (regex (concat "^\\([a-zA-Z0-9.]+\\) " fn1 " "))
+	   ret)
+      (call-process ghc-hoogle-command nil t nil "search" fn1)
+      (goto-char (point-min))
       (while (re-search-forward regex nil t)
 	(setq ret (cons (match-string 1) ret)))
       (nreverse ret))))