Permalink
Browse files

(haskell-program-name): Use ghci if hugs is absent.

Ignore-this: a674dc434dc6d5edb56c1f24aaf20bf7

darcs-hash:20041210181937-c2f2e-3f2521f8e1343daf5bca025eb960f3de71fbb2b3.gz
  • Loading branch information...
1 parent 0db3dcd commit 27cc26c348667e1afd4eae8b593438363b4cdb0d monnier committed Dec 10, 2004
Showing with 7 additions and 1 deletion.
  1. +7 −1 inf-haskell.el
View
8 inf-haskell.el
@@ -33,7 +33,13 @@
;; Here I depart from the inferior-haskell- prefix.
;; Not sure if it's a good idea.
-(defcustom haskell-program-name "hugs \"+.\""
+(defcustom haskell-program-name
+ ;; Arbitrarily give preference to hugs over ghci.
+ (or (cond
+ ((not (fboundp 'executable-find)) nil)
+ ((executable-find "hugs") "hugs \"+.\"")
+ ((executable-find "ghci") "ghci"))
+ "hugs \"+.\"")
"The name of the command to start the inferior Haskell process.
The command can include arguments."
:options '("hugs \"+.\"" "ghci")

0 comments on commit 27cc26c

Please sign in to comment.