Implement missing DELETE /api/meta/fk/:id endpoint

src/metabase/api/meta/fk.clj

+(ns metabase.api.meta.fk
+  "/api/meta/fk endpoints."
+  (:require [compojure.core :refer [DELETE]]
+            [metabase.api.common :refer :all]
+            [metabase.db :refer :all]
+            (metabase.models [foreign-key :refer [ForeignKey]])
+            [metabase.driver :as driver]))
+
+(defendpoint DELETE "/:id"
+  "Delete a `ForeignKey`."
+  [id]
+  (write-check ForeignKey id)
+  (del ForeignKey :id id))
+
+(define-routes)

src/metabase/api/routes.clj

@@ -12,6 +12,7 @@
             (metabase.api.meta [dataset :as dataset]
                                [db :as db]
                                [field :as field]
+                               [fk :as fk]
                                [table :as table])
             [metabase.middleware.auth :as auth]))
 
@@ -30,6 +31,7 @@
   (context "/meta/dataset" [] (+auth dataset/routes))
   (context "/meta/db"      [] (+auth db/routes))
   (context "/meta/field"   [] (+auth field/routes))
+  (context "/meta/fk"      [] (+auth fk/routes))
   (context "/meta/table"   [] (+auth table/routes))
   (context "/notify"       [] (+apikey notify/routes))
   (context "/session"      [] session/routes)

src/metabase/models/foreign_key.clj

@@ -23,3 +23,5 @@
     (assoc fk
            :origin      (delay (sel :one 'metabase.models.field/Field :id origin_id))
            :destination (delay (sel :one 'metabase.models.field/Field :id destination_id)))))
+
+(extend-ICanReadWrite ForeignKeyEntity :read :always, :write :superuser)