File tree Expand file tree Collapse file tree 1 file changed +9
-9
lines changed
Expand file tree Collapse file tree 1 file changed +9
-9
lines changed Original file line number Diff line number Diff line change 7474
7575(def ^:private read-dates-single
7676 (memoize
77- (fn [calendar]
78- (let [partition-size (if (= calendar constants/WEEKEND-FILE-NAME) WEEKEND-STRING-LENGTH HOLIDAY-STRING-LENGTH)
79- holiday-strings (read-holiday-strings calendar partition-size)]
80- (when holiday-strings
81- (map parse-date holiday-strings))))))
77+ (fn [calendar]
78+ (let [partition-size (if (= calendar constants/WEEKEND-FILE-NAME) WEEKEND-STRING-LENGTH HOLIDAY-STRING-LENGTH)
79+ holiday-strings (read-holiday-strings calendar partition-size)]
80+ (when holiday-strings
81+ (map parse-date holiday-strings))))))
8282
8383(def ^:private read-dates-multi
8484 (memoize
85- (fn [calendars]
86- (->> calendars
87- (keep read-dates-single)
88- (apply util/merge-sorted-lists)))))
85+ (fn [calendars]
86+ (->> calendars
87+ (keep read-dates-single)
88+ (apply util/merge-sorted-lists)))))
8989
9090(defn read-dates [cal-or-cals]
9191 (if (string? cal-or-cals)
You can’t perform that action at this time.
0 commit comments