SQL-197 more spec refactor

yetanalytics · Jul 24, 2023 · 58f1c9a · 58f1c9a
1 parent 6ffc585
commit 58f1c9a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/src/main/lrsql/ops/query/reaction.clj b/src/main/lrsql/ops/query/reaction.clj
@@ -182,7 +182,7 @@
   :args (s/cat :bk rs/reaction-backend?
                :tx transaction?
                :input rs/query-reaction-input-spec)
-  :ret (s/every (s/map-of ::rs/condition-name ::xs/statement)))
+  :ret rs/query-reaction-ret-spec)
 
 (defn query-reaction
   "For the given reaction input, return matching statements named for conditions."

diff --git a/src/main/lrsql/spec/reaction.clj b/src/main/lrsql/spec/reaction.clj
@@ -110,3 +110,6 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Results
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(def query-reaction-ret-spec
+  (s/every (s/map-of ::condition-name ::xs/statement)))