Quote.elm

module Main exposing (..)

import Html exposing (Html, text, div)

-- MODEL

type alias Model =
    { author : String
    , quote : String
    }


model : Model
model =
    { author = "Adam", quote = "Elm is a nice language to use!" }

-- VIEW

view : Model -> Html Msg
view model =
    div []
        [ div [] [ text model.quote ]
        , div [] [ text model.author ]
        ]

-- UPDATE

type Msg
    = NoOp


update : Msg -> Model -> Model
update msg model =
    case msg of
        NoOp ->
            model


-- MAIN

main : Program Never Model Msg
main =
    Html.beginnerProgram
        { model = model
        , update = update
        , view = view
        }