joblimit quick fix

This commit is contained in:
2019-01-15 18:20:26 +01:00
parent d8c1ed992f
commit 420b230978

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)