Merge remote-tracking branch 'kazu/master'
This commit is contained in:
commit
31a7ce3d19
@ -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
|
||||
|
||||
-- |
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user