Fork me on GitHub
#meander
<
2021-03-21
>
ribelo12:03:50

(m/rewrite [["00:00" "01:00"] ["02:00" "03:00"]]
  (m/or [(m/pred string?) ... :as !time]
        [[(m/pred string?) ... :as !time] ...]
        (m/let [!time ["00:00" "23:59"]]))
  [!time ...])
shouldn't it return [["00:00" "01:00"] ["02:00" "03:00"]] ?

noprompt15:03:46

It looks like theres something up with m/or ; I’ll take a look soon. For now (and I’m sure you’ve probably figured a work around) you can use

(me/rewrite [["00:00" "01:00"] ["02:00" "03:00"]]
  (me/or [(me/pred string?) ..1 :as !time]
         [[(me/pred string?) ... :as !time] ..1])
  [!time ...]

  _
  [["00:00" "23:59"]])