clojure lint fixes.

src/metabase/api/meta/db.clj

@@ -64,7 +64,7 @@
 (defendpoint GET "/:id"
   "Get `Database` with ID."
   [id]
-  (->404 (sel :one Database :id id)))
+  (check-404 (sel :one Database :id id)))
 
 (defendpoint PUT "/:id"
   "Update a `Database`."

src/metabase/api/user.clj

@@ -39,7 +39,7 @@
 (defendpoint GET "/current"
   "Fetch the current `User`."
   []
-  (->404 @*current-user*))
+  (check-404 @*current-user*))
 
 
 (defendpoint GET "/:id"