module Update.UpdateTimerEdition
  ( updateTimerEdition
  ) where

import Char (..)
import Debug

import Model.TimerEdition (..)

updateTimerEdition : Maybe Char -> TimerEdition -> TimerEdition
updateTimerEdition maybeChar timerEdition =
  case maybeChar of
    Just char ->
      if isDigit char
        then
          { timerEdition | numbers <- char :: timerEdition.numbers }
        else
          timerEdition
    Nothing ->
      timerEdition