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