fix(emacs/lean-project.el): check project-type argument

close #1017
This commit is contained in:
Soonho Kong 2016-03-04 12:07:24 -05:00
parent 5cacebcf86
commit 7e64405f5e

View file

@ -23,8 +23,11 @@
(let ((project-file (concat (file-name-as-directory directory) (let ((project-file (concat (file-name-as-directory directory)
lean-project-file-name)) lean-project-file-name))
(ext (pcase type (ext (pcase type
(`lean "lean")
(`standard "lean") (`standard "lean")
(`hott "hlean"))) (`hlean "hlean")
(`hott "hlean")
(_ (error "Unknown project type %S. Please select either standard or hott" type))))
(default-contents (default-contents
(s-join "\n" (s-join "\n"
;; EXT is a placeholder. ;; EXT is a placeholder.