From 648f914ac51313b45d5d075473ef554464701170 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Wed, 25 Jun 2014 15:05:23 +0900 Subject: [PATCH] ghc-debug displays PATH env. --- elisp/ghc.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/elisp/ghc.el b/elisp/ghc.el index 5640dad..4b15f6d 100644 --- a/elisp/ghc.el +++ b/elisp/ghc.el @@ -121,13 +121,14 @@ (defun ghc-debug () (interactive) (let ((el-path (locate-file "ghc.el" load-path)) - (ghc-path (executable-find "ghc")) + (ghc-path (executable-find "ghc")) ;; FIXME (ghc-mod-path (executable-find ghc-module-command)) (ghc-modi-path (executable-find ghc-interactive-command)) (el-ver ghc-version) (ghc-ver (ghc-run-ghc-mod '("--version") "ghc")) (ghc-mod-ver (ghc-run-ghc-mod '("version"))) - (ghc-modi-ver (ghc-run-ghc-mod '("version") ghc-interactive-command))) + (ghc-modi-ver (ghc-run-ghc-mod '("version") ghc-interactive-command)) + (path (getenv "PATH"))) (switch-to-buffer (get-buffer-create "**GHC Debug**")) (erase-buffer) (insert "Path: check if you are using intended programs.\n") @@ -139,6 +140,8 @@ (insert (format "\t ghc.el version %s\n" el-ver)) (insert (format "\t %s\n" ghc-mod-ver)) (insert (format "\t%s\n" ghc-modi-ver)) - (insert (format "\t%s\n" ghc-ver)))) + (insert (format "\t%s\n" ghc-ver)) + (insert "\nEnvironment variables:\n") + (insert (format "\tPATH=%s\n" path)))) (provide 'ghc)