#45 bug fix for missing parameters

src/org/zalando/stups/even/api.clj

@@ -31,15 +31,15 @@
    (s/optional-key :lifetime_minutes) (s/both s/Int (s/pred valid-lifetime))
    })
 
-(def-http-component API "api/even-api.yaml" [ssh db usersvc http-audit-logger])
+(def-http-component API "api/even-api.yaml" [ssh db usersvc http-audit-logger] :dependencies-as-map true)
 
 (def default-http-configuration {:http-port 8080})
 
 (def empty-access-request {:username nil :hostname nil :reason nil :remote_host nil :lifetime_minutes 60})
 
 (defn serve-public-key
   "Return the user's public SSH key as plaintext"
-  [{:keys [name]} request _ _ usersvc]
+  [{:keys [name]} request {:keys [usersvc]}]
   (if-let [ssh-key (get-public-key name usersvc)]
     (-> (ring/response ssh-key)
         (ring/header "Content-Type" "text/plain"))
@@ -104,7 +104,7 @@
 
 (defn request-access
   "Request SSH access to a specific host"
-  [{:keys [request]} ring-request ssh db usersvc {:keys [log-fn]}]
+  [{:keys [request]} ring-request {:keys [ssh db usersvc {:keys [log-fn]}]} ]
   (if-let [auth (extract-auth ring-request)]
     (request-access-with-auth auth (->> request
                                         validate-request
@@ -114,7 +114,7 @@
 
 (defn list-access-requests
   "Return list of most recent access requests from database"
-  [parameters _ _ db _]
+  [parameters _ {:keys [db]}]
   (let [result (map sql/from-sql (sql/cmd-list-access-requests (sq/to-sql parameters) {:connection db}))]
     (-> (ring/response result)
         (fring/content-type-json))))