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

close #1017
2016-03-04 12:07:24 -05:00 · 2016-03-04 12:07:24 -05:00 · 7e64405f5e
commit 7e64405f5e
parent 5cacebcf86
1 changed files with 4 additions and 1 deletions
--- a/src/emacs/lean-project.el
+++ b/src/emacs/lean-project.el
@ -23,8 +23,11 @@
  (let ((project-file (concat (file-name-as-directory directory)
                              lean-project-file-name))
        (ext (pcase type
+               (`lean     "lean")
               (`standard "lean")
-               (`hott     "hlean")))
+               (`hlean    "hlean")
+               (`hott     "hlean")
+               (_         (error "Unknown project type %S. Please select either standard or hott" type))))
        (default-contents
          (s-join "\n"
                  ;;  EXT is a placeholder.