use symbols.
This commit is contained in:
parent
61ebb031f4
commit
27f42b6c90
@ -49,7 +49,7 @@
|
|||||||
(errs (nth 1 data)))
|
(errs (nth 1 data)))
|
||||||
(insert title "\n")
|
(insert title "\n")
|
||||||
(dolist (err errs)
|
(dolist (err errs)
|
||||||
(insert (ghc-replace-character (car err) 0 10) "\n"))
|
(insert (ghc-replace-character (car err) ghc-null ghc-newline) "\n"))
|
||||||
(goto-char (point-min))))
|
(goto-char (point-min))))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
@ -53,6 +53,11 @@
|
|||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
|
(defconst ghc-null 0)
|
||||||
|
(defconst ghc-newline 10)
|
||||||
|
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(defvar ghc-module-command "ghc-mod")
|
(defvar ghc-module-command "ghc-mod")
|
||||||
(defvar ghc-ghc-command (ghc-which "ghc"))
|
(defvar ghc-ghc-command (ghc-which "ghc"))
|
||||||
(defvar ghc-ghci-command (ghc-which "ghci"))
|
(defvar ghc-ghci-command (ghc-which "ghci"))
|
||||||
|
Loading…
Reference in New Issue
Block a user