luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

wip [skip ci]

Browse source
This commit is contained in:
Michiel Borkent 2022-04-03 16:53:20 +02:00
parent 9c94cb23b0
commit ced77f4ae5
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
feature-spec-alpha/babashka/impl/spec.clj
View file

@ -77,7 +77,8 @@
#_:clj-kondo/ignore #_:clj-kondo/ignore
(def gen-namespace (def gen-namespace
{'generate (copy-var gen/generate gns) {'fmap (copy-var gen/fmap gns)
'generate (copy-var gen/generate gns)
'large-integer* (copy-var gen/large-integer* gns) 'large-integer* (copy-var gen/large-integer* gns)
'double* (copy-var gen/double* gns)}) 'double* (copy-var gen/double* gns)})

2
src/babashka/impl/clojure/spec/alpha.clj
View file

@ -1910,7 +1910,7 @@
(clojure.spec.alpha/spec (clojure.spec.alpha/spec
(clojure.spec.alpha/and inst? #(clojure.spec.alpha/inst-in-range? ~start ~end %)) (clojure.spec.alpha/and inst? #(clojure.spec.alpha/inst-in-range? ~start ~end %))
:gen (fn [] :gen (fn []
(gen/fmap mkdate# (clojure.spec.gen.alpha/fmap mkdate#
(clojure.spec.gen.alpha/large-integer* {:min st# :max et#})))))) (clojure.spec.gen.alpha/large-integer* {:min st# :max et#}))))))
(defn int-in-range? (defn int-in-range?