(ns foobar.system
  (:require [com.stuartsierra.component :as component]
            [foobar.db :refer [create-database]]
            [foobar.http-server :refer [create-http-server]]))

(defn base-system [{:keys [db-host db-name http-port] :as opts}]
  (-> (component/system-map
        :db (create-database db-host db-name)
        :http-server (create-http-server [:db] http-port))
      (component/system-using
        {:http-server [:db]})))