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 -- | 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)