defining ghc-debug-options.
This commit is contained in:
parent
90061facb9
commit
8a0c4be12b
@ -10,6 +10,9 @@
|
|||||||
|
|
||||||
(require 'ghc-func)
|
(require 'ghc-func)
|
||||||
|
|
||||||
|
(defvar ghc-debug-options nil)
|
||||||
|
;; (setq ghc-debug-options '("-v9"))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(defvar ghc-process-running nil)
|
(defvar ghc-process-running nil)
|
||||||
@ -68,7 +71,8 @@
|
|||||||
(t cpro)))
|
(t cpro)))
|
||||||
|
|
||||||
(defun ghc-start-process (name buf)
|
(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)
|
(ghc-make-ghc-options)
|
||||||
'("legacy-interactive")))
|
'("legacy-interactive")))
|
||||||
(pro (apply 'start-file-process name buf ghc-command opts)))
|
(pro (apply 'start-file-process name buf ghc-command opts)))
|
||||||
|
Loading…
Reference in New Issue
Block a user