[Fixed #8008] Fixed DApps permission regression

src/status_im/contact/subs.cljs

@@ -128,3 +128,28 @@
                acc))
            {}
            contacts)))
+
+(re-frame/reg-sub
+ ::dapps
+ (fn [db]
+   (:contacts/dapps db)))
+
+(re-frame/reg-sub
+ :contacts/all-dapps
+ :<- [::dapps]
+ :<- [:account/account]
+ (fn [[dapps {:keys [dev-mode?]}]]
+   (map (fn [m] (update m :data #(contact.db/filter-dapps % dev-mode?))) dapps)))
+
+(re-frame/reg-sub
+ :contacts/dapps-by-name
+ :<- [:contacts/all-dapps]
+ (fn [dapps]
+   (reduce (fn [dapps-by-name category]
+             (merge dapps-by-name
+                    (reduce (fn [acc {:keys [name] :as dapp}]
+                              (assoc acc name dapp))
+                            {}
+                            (:data category))))
+           {}
+           dapps)))