;;;; dnd.lisp

(in-package #:dnd)


(defvar *dnd-arena* nil
  "The instance of the HTTP server.")

(defun conjure-arena ()
  (setf *dnd-arena* (lzb:create-server))
  (lzb:install-app
   *dnd-arena*
   (lzb:app 'dnd.api:dnd.api)) ; annoying but needed for now
  (lzb:start-server *dnd-arena*))


(defun start ()
  (api:init-db)
  (conjure-arena))