eb8dec1

src/net/bowmap/packets/registry.clj modified (view file)

@@ -4,11 +4,13 @@    [dev.grahp.error :refer [raise]]    [net.bowmap.packet :as pk])) +(s/def ::table+  (s/* (s/cat :field keyword?+              :doc (s/? string?)+              :type #(or (keyword? %) (vector? %)))))+ (s/def ::packet-registry-  (s/map-of ::pk/id-            (s/* (s/cat :field keyword?-                        :doc (s/? string?)-                        :type #(or (keyword? %) (vector? %))))))+  (s/map-of ::pk/id ::table))  (defn conform-registry   "Returns a registry conformed to '::packet-registry', or throws if it is invalid"