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

View File

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