question.elm

(=>) = (,)

update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
  case msg of
    NoOp
    -> model
    => Cmd.none
    
    Init res
    -> ({ model | resolution = Just res })
    => Cmd.none
    
    Tick time
    ->
      let piece = model.activeBlock
      in case piece of
        Just v ->
          if model.timeout < 1000
          then { model | timeout = model.timeout+time } => Cmd.none
          else { model | timeout = 0.0 } => Task.perform never (\t -> Rotate t) (succeed v) 
           
        Nothing -> 
          model => Cmd.none
        

    Rotate piece
    ->
      let rotated = rotatePiece piece
      in { model | board = [Just rotated] }
    => Cmd.none