Remove explicit variable store program name in shm custom variable.
diff --git a/elisp/shm-query.el b/elisp/shm-query.el
index 2bfdb40..fe3caa7 100644
--- a/elisp/shm-query.el
+++ b/elisp/shm-query.el
@@ -3,8 +3,6 @@
;;; Commentary:
(require 'shm-node)
-(defconst query-program-name "haskell-src-query")
-
(defun haskell-src-query (query node &optional filePath)
(let ((message-log-max nil)
(end (shm-node-end node))
@@ -19,7 +17,7 @@
(with-current-buffer buffer
(condition-case e
(call-process-region start end
- query-program-name
+ shm-program-name
nil
temp-buffer
nil