arch.elm

init : Int -> Model
init count =
  Model 0



type alias Model =
  { count : Int
  , minCount : Int
  , maxCount : Int
  , numberClicks : Int
  }




type Msg
  = Increment
  | Decrement




type Msg
  = Increment
  | Decrement
  | SetValue Int



case msg of
  Increment ->
    (model | count = model.count + 1, Cmd.none)
  SetValue newValue ->
    (model | count = newValue, Cmd.none)
        
        
        
update : Msg -> Model -> Model
update msg model =
  case msg of
    Increment ->
        (model | count = model.count + 1, Cmd.none)
    SetValue newValue ->
        (model | count = newValue, Cmd.none)