 (defn reset-database
   "Make a request to reset the database by clearing out all stored concepts."
   []
-  (let [response (client/delete "http://localhost:3001/concepts" 
+  (let [response (client/delete "http://localhost:3000/concepts" 
                                 {:throw-exceptions false})
         status (:status response)]
     status))

  "Make a post request to save a concept without JSON encoding the concept.  Returns a map with
  status, revision-id, and a list of error messages"
  [concept]
  (let [response (client/post "http://localhost:3001/concepts" 
                              {:body (cheshire/generate-string concept)
                               :body-encoding "UTF-8"
                               :content-type :json

(defn get-concept-by-id
  "Make a get to retrieve a concept by concept-id."
  [concept-id]
  (let [response (client/get (str "http://localhost:3000/concepts/" concept-id)
                             {:accept :json
                              :throw-exceptions false})
        status (:status response)]
