joblimit quick fix
This commit is contained in:
parent
d8c1ed992f
commit
420b230978
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue