 
 (defn pprint-str [o]
   (let [w (java.io.StringWriter.)]
-    (pprint o w)
+    (pprint/pprint o w)
     (.toString w)))
 
 

  (POST "/api/projects" [root]
        (let [name (load-project! root)]
          {:status 201
           :body (pprint-str (project-short (:project (@projects name))))}))
  (DELETE "/api/projects/:project-name" [project-name]
          (unload-project! project-name)
          {:status 204})

(defn reset-server []
  (stop-server)
  (start-server))
