 
 (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]}]
+  [ & {:keys [model previous-val min max on-change disabled style hide-border show-time-icon :as args]}]
   {:pre [(superset? time-api (keys args))]}
+  (println (str "model: " @model " prev: " previous-val " min: " @min " max: " @max)) ;; TODO remove this
   (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 "."))))
  (let [from-max-model (atom-on (string->time-integer @input-to-model) nil)
        to-min-model   (atom-on (string->time-integer @input-from-model) nil)]

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

    (if-not (valid-time-integer? deref-model @min @max)
      (throw (js/Error. (str "model " deref-model " is not a valid time integer or is outside the min/max range."))))
     (fn [& {:keys [model disabled hide-border show-time-icon style]}]
       [private-time-input
         :model input-model
         :previous-val (deref-or-value model)
         :min min
         :max max
         :on-change on-change
         :disabled disabled
         :hide-border hide-border
