use symbols.

This commit is contained in:
Kazu Yamamoto 2010-04-26 17:26:25 +09:00
parent 61ebb031f4
commit 27f42b6c90
2 changed files with 6 additions and 1 deletions

View File

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

View File

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