 (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))

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

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