joblimit quick fix
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user