Throw error if trying to create a session that already exists

jwiegley · May 12, 2014 · b180578 · b180578
1 parent ff2f361
commit b180578
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/haskell-session.el b/haskell-session.el
@@ -269,6 +269,8 @@ If DONTCREATE is non-nil don't create a new session."
 
 (defun haskell-session-make (name)
   "Make a Haskell session."
+  (when (haskell-session-lookup name)
+    (error "Session of name %s already exists!" name))
   (let ((session (set (make-local-variable 'haskell-session)
                       (list (cons 'name name)))))
     (add-to-list 'haskell-sessions session)