From 8a0c4be12b000bd4a80894b79246759416b4791f Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Fri, 14 Aug 2015 16:47:44 +0900 Subject: [PATCH] defining ghc-debug-options. --- elisp/ghc-process.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/elisp/ghc-process.el b/elisp/ghc-process.el index 93b63e5..497ecde 100644 --- a/elisp/ghc-process.el +++ b/elisp/ghc-process.el @@ -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)))