diff --git a/elisp/ghc-flymake.el b/elisp/ghc-flymake.el
index aa29392..6fd70ec 100644
--- a/elisp/ghc-flymake.el
+++ b/elisp/ghc-flymake.el
@@ -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))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/elisp/ghc-func.el b/elisp/ghc-func.el
index 69198b0..ec03c26 100644
--- a/elisp/ghc-func.el
+++ b/elisp/ghc-func.el
@@ -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"))