defining ghc-debug-options.

This commit is contained in:
Kazu Yamamoto 2015-08-14 16:47:44 +09:00
parent 90061facb9
commit 8a0c4be12b
1 changed files with 5 additions and 1 deletions

View File

@ -10,6 +10,9 @@
(require 'ghc-func)
(defvar ghc-debug-options nil)
;; (setq ghc-debug-options '("-v9"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar ghc-process-running nil)
@ -68,7 +71,8 @@
(t cpro)))
(defun ghc-start-process (name buf)
(let* ((opts (append '("-b" "\n" "-l" "--line-prefix=O: ,E: ")
(let* ((opts (append ghc-debug-options
'("-b" "\n" "-l" "--line-prefix=O: ,E: ")
(ghc-make-ghc-options)
'("legacy-interactive")))
(pro (apply 'start-file-process name buf ghc-command opts)))