         :align :center
         :children [(when from-label [label :label from-label])
                    [private-time-input
-                    input-from-model
-                    (first (deref-or-value model))
-                    min
-                    from-max-model
-                    :on-change #(updated-range-from-time input-from-model to-min-model (deref-or-value model) on-change)
-                    :disabled disabled
-                    :hide-border hide-border
-                    :show-time-icon show-time-icon
-                    :style style]
+                      :model input-from-model
+                      :previous-val (first (deref-or-value model))
+                      :min min
+                      :max max
+                      :on-change #(updated-range-from-time input-from-model input-to-model (deref-or-value model) on-change)
+                      :disabled disabled
+                      :hide-border hide-border
+                      :show-time-icon show-time-icon
+                      :style style]
                    (when to-label [label :label to-label])
                    [private-time-input
-                    input-to-model
-                    (last (deref-or-value model))
-                    to-min-model
-                    max
-                    :on-change #(updated-range-to-time input-to-model from-max-model (deref-or-value model) on-change)
-                    :disabled disabled
-                    :hide-border hide-border
-                    :show-time-icon show-time-icon
-                    :style style]]]))))
+                      :model input-to-model
+                      :previous-val (last (deref-or-value model))
+                      :min min
+                      :max max
+                      :on-change #(updated-range-to-time input-from-model input-to-model (deref-or-value model) on-change)
+                      :disabled disabled
+                      :hide-border hide-border
+                      :show-time-icon show-time-icon
+                      :style style]]])))


(defn- private-time-input
  "This is the markup for the time input."
  [model previous-val min max & {:keys [on-change disabled style hide-border show-time-icon :as args]}]
  {:pre [(superset? time-api (keys args))]}
  (let [def-style {:flex "none"
                   :margin-top "0px"
                   :padding-left "2px"

    (throw (js/Error. (str "model for TO time: " @input-to-model " is not a valid time integer."))))
  (if-not (< (first deref-model) (last deref-model))
      (throw (js/Error. (str "TO " @input-to-model " is less than FROM " @input-from-model "."))))

  (fn [& {:keys [model disabled]}]
      [h-box
