From 92651fbb26cb6a8a6124b779ad85875f11fb68ee Mon Sep 17 00:00:00 2001 From: Kenta Sato Date: Wed, 30 Jul 2014 12:03:58 +0900 Subject: [PATCH 1/2] interpret backslash-escaped characters at the line boundary --- Language/Haskell/GhcMod/Convert.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Language/Haskell/GhcMod/Convert.hs b/Language/Haskell/GhcMod/Convert.hs index 295f888..a386e7e 100644 --- a/Language/Haskell/GhcMod/Convert.hs +++ b/Language/Haskell/GhcMod/Convert.hs @@ -39,8 +39,9 @@ class ToString a where toPlain :: Options -> a -> Builder lineSep :: Options -> String -lineSep opt = lsep +lineSep opt = interpret lsep where + interpret s = read $ "\"" ++ s ++ "\"" LineSeparator lsep = lineSeparator opt -- | From d136fb4d6795af3ac0b98e74b22d2fd561b06a5f Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Fri, 1 Aug 2014 16:56:44 +0900 Subject: [PATCH 2/2] fix #273. --- elisp/ghc-process.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/elisp/ghc-process.el b/elisp/ghc-process.el index baf410c..69cf75b 100644 --- a/elisp/ghc-process.el +++ b/elisp/ghc-process.el @@ -63,7 +63,8 @@ (t cpro))) (defun ghc-start-process (name buf) - (let ((pro (start-file-process name buf ghc-interactive-command "-b" "\n" "-l"))) + (let* ((opts (append '("-b" "\n" "-l") (ghc-make-ghc-options))) + (pro (apply 'start-file-process name buf ghc-interactive-command opts))) (set-process-filter pro 'ghc-process-filter) (set-process-sentinel pro 'ghc-process-sentinel) (set-process-query-on-exit-flag pro nil)