Page.Article

Viewing an individual article.

type alias Model =

{ errors : Errors

, comments : Remote ( CommentText, List Comment )

, article : Remote (Article Full)

}

type Msg

init : Slug -> ( Model, Effect Msg )

Zone

-> Session

-> Model

-> { title : String

, content : Html Msg

}

update : Msg -> Model -> ( Model, Effect Msg )