                     (and (:start %) (:end %))
                     (some (set valid-period-field-types) (keys %)))
                period-construction-map
-               100))
+               200))

               (multi-field-partial :chrono chrono
                                    :allowed-fields allowed-fields
                                    :required-fields required-fields)
               100))

(def local-date
  (g/fmap #(LocalDate. %)

                       (multi-field-partial :chrono c
                                            :required-fields fields
                                            :allowed-fields fields)
                       200))))

(defn- same-chronology [date]
  (cond (instance? ReadableInstant date)
