Prefixのghciとシステムのghciを切り替える

switch_ghci.el

;; Prefixのghciとシステムのghciを切り替える
(when (locate-library "haskell-mode")
  (global-set-key "\C-\M-h" 
    (lambda () (interactive) 
      (setq haskell-program-name "~/gentoo/usr/bin/ghci")
      (message "ghci change to ~/gentoo/usr/bin/ghci")))
  (global-set-key "\C-\M-c"
    (lambda () (interactive)
      (setq haskell-program-name "/usr/bin/ghci")
      (message "ghci change to /usr/bin/ghci"))))