Supporting new action.

2018-09-20 22:28:24 -07:00
parent 3ea31e8836 82f56c37cd
commit ebb9a191f1
15 changed files with 119 additions and 44 deletions
--- a/src/clj/auto_ap/graphql/utils.clj
+++ b/src/clj/auto_ap/graphql/utils.clj
@@ -47,7 +47,8 @@

 (defn can-see-company? [identity company]
  (or (= "admin" (:role identity))
-      ((set (map :db/id (:user/companies identity))) (:db/id company))))
+      ((set (map :db/id (:user/companies identity))) (:db/id company))
+      ((set (map :db/id (:user/companies identity))) company)))

 (defn assert-can-see-company [identity company]
  (when-not (can-see-company? identity company)