bare minimum elm architechure for Elm 0.18

Program.elm

module Main exposing (..)

import Html exposing (..)


-- MODEL


type alias Model =
    { key : Int }


init : ( Model, Cmd Msg )
init =
    ( initialModel, Cmd.none )


initialModel : Model
initialModel =
    { key = 1 }



-- UPDATE


type Msg
    = NoOp


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        NoOp ->
            model ! []



-- SUBSCRIPTIONS


subscriptions : Model -> Sub Msg
subscriptions model =
    Sub.batch []



-- VIEW


view : Model -> Html Msg
view model =
    div [] [ text "hello world" ]



-- INIT


main =
    program
        { init = init
        , update = update
        , subscriptions = subscriptions
        , view = view
        }

Simple.elm

module Main exposing (..)

import Html exposing (..)


-- MODEL


type alias Model =
    { key : Int }


model : Model
model =
    { key = 1 }



-- UPDATE


type Msg
    = NoOp


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



-- VIEW


view : Model -> Html Msg
view model =
    div [] [ text "hello world" ]



-- INIT


main =
    beginnerProgram
        { model = model
        , update = update
        , view = view
        }