Data.ByteString cannot be loaded if not specified in cabal file.

This commit is contained in:
Kazu Yamamoto 2014-03-27 14:24:38 +09:00
parent cb9db4fd1a
commit d3d9eb1e2c
3 changed files with 3 additions and 4 deletions

View File

@ -30,6 +30,8 @@ unloaded modules are loaded")
;; must be sorted
(defconst ghc-reserved-keyword '("case" "deriving" "do" "else" "if" "in" "let" "module" "of" "then" "where"))
(defconst ghc-extra-keywords '("ByteString"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Local Variables
@ -73,7 +75,6 @@ unloaded modules are loaded")
ghc-keyword-Control.Applicative
ghc-keyword-Control.Monad
ghc-keyword-Control.Exception
ghc-keyword-Data.ByteString
ghc-keyword-Data.Char
ghc-keyword-Data.List
ghc-keyword-Data.Maybe
@ -87,7 +88,6 @@ unloaded modules are loaded")
"Control.Applicative"
"Control.Monad"
"Control.Exception"
"Data.ByteString"
"Data.Char"
"Data.List"
"Data.Maybe"
@ -261,7 +261,7 @@ unloaded modules are loaded")
(defun ghc-merge-keywords (mods)
(setq ghc-loaded-module (append mods ghc-loaded-module))
(let* ((modkeys (mapcar 'ghc-module-keyword ghc-loaded-module))
(keywords (cons ghc-reserved-keyword modkeys))
(keywords (cons ghc-extra-keywords (cons ghc-reserved-keyword modkeys)))
(uniq-sorted (sort (ghc-uniq-lol keywords) 'string<)))
(setq ghc-merged-keyword uniq-sorted)))

View File

@ -160,7 +160,6 @@ preBrowsedModules = [
, "Control.Applicative"
, "Control.Monad"
, "Control.Exception"
, "Data.ByteString"
, "Data.Char"
, "Data.List"
, "Data.Maybe"