joblimit quick fix

This commit is contained in:
Jaromil 2019-01-15 18:20:26 +01:00
parent d8c1ed992f
commit 420b230978
1 changed files with 3 additions and 1 deletions

View File

@ -28,7 +28,9 @@
(f/fail (str "Profile not found " id " :: " (f/message profile)))))
(defn get-joblimit [id]
(f/ok-> id fetch-profile (get :joblimit)))
;; TODO: quick fix for default joblimit but needs better solution
(let [jl (f/ok-> id fetch-profile (get :joblimit))]
(if (nil? jl) 3 jl)))
(defn has-role [id role]
(f/ok-> id fetch-profile (get :roles)