PersonRow.elm

module PersonRow exposing (..)

import Html exposing (..)
import Html.App as App

import WeekButtons

-- MODEL

type alias Model = {
  week: WeekButtons.Model
}

init : (Model, Cmd Msg)
init =
      (
        {
          week = WeekButtons.init
        },
        Cmd.none
      )

-- UPDATE

type Msg =
  CurrentWeek WeekButtons.Msg

update : Msg -> Model -> (Model, Cmd Msg)
update action model =
  case action of
    CurrentWeek msg ->
      let
        (updatedWeek, weekCmds) =
          WeekButtons.update msg model.week
      in
        (
          { model | week = updatedWeek},
          Cmd.map CurrentWeek weekCmds
        )


-- VIEW

view : Model -> Html Msg
view model =
    div [] [
      span [] [ text "Craig A." ],
      App.map CurrentWeek (WeekButtons.view model.week)
    ]