 (ns metabase.driver.crate
   (:require [metabase.driver :as driver]
             [metabase.driver.generic-sql :as sql]
-            [clojure.string :as s])
+            (korma [core :as k]))
   (:import (clojure.lang Named)))
 
 (defrecord CrateDriver []

(defn- connection-details->spec [_ details]
  (-> details crate-spec))

(def CrateISQLDriverMixin
  "Implementations of `ISQLDriver` methods for `PostgresDriver`."
  (merge (sql/ISQLDriverDefaultsMixin)
         {:connection-details->spec  connection-details->spec}))


                                        :display-name "Port"
                                        :type         :integer
                                        :default      4300}])
          :can-connect?  can-connect})
  sql/ISQLDriver CrateISQLDriverMixin)

(driver/register-driver! :crate (CrateDriver.))
