From ced77f4ae5fdd980ec89524fbd2750a461d17d41 Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Sun, 3 Apr 2022 16:53:20 +0200
Subject: [PATCH] wip [skip ci]

---
 feature-spec-alpha/babashka/impl/spec.clj | 3 ++-
 src/babashka/impl/clojure/spec/alpha.clj  | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/feature-spec-alpha/babashka/impl/spec.clj b/feature-spec-alpha/babashka/impl/spec.clj
index b96c2996..34a280f6 100644
--- a/feature-spec-alpha/babashka/impl/spec.clj
+++ b/feature-spec-alpha/babashka/impl/spec.clj
@@ -77,7 +77,8 @@
 
 #_:clj-kondo/ignore
 (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)
    'double* (copy-var gen/double* gns)})
 
diff --git a/src/babashka/impl/clojure/spec/alpha.clj b/src/babashka/impl/clojure/spec/alpha.clj
index 5f21f837..a5aa9a01 100644
--- a/src/babashka/impl/clojure/spec/alpha.clj
+++ b/src/babashka/impl/clojure/spec/alpha.clj
@@ -1910,7 +1910,7 @@
      (clojure.spec.alpha/spec
       (clojure.spec.alpha/and inst? #(clojure.spec.alpha/inst-in-range? ~start ~end %))
       :gen (fn []
-             (gen/fmap mkdate#
+             (clojure.spec.gen.alpha/fmap mkdate#
                        (clojure.spec.gen.alpha/large-integer* {:min st# :max et#}))))))
 
 (defn int-in-range?