Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
37 changes: 0 additions & 37 deletions template/src/App.elm

This file was deleted.

54 changes: 51 additions & 3 deletions template/src/Main.elm
Original file line number Diff line number Diff line change
@@ -1,9 +1,57 @@
module Main exposing (..)

import App exposing (..)
import Html exposing (programWithFlags)
import Html exposing (Html, text, div, img)
import Html.Attributes exposing (src)


---- MODEL ----


type alias Model =
{ message : String
, logo : String
}


init : String -> ( Model, Cmd Msg )
init path =
( { message = "Your Elm App is working!", logo = path }, Cmd.none )



---- UPDATE ----


type Msg
= NoOp


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
( model, Cmd.none )



---- VIEW ----


view : Model -> Html Msg
view model =
div []
[ img [ src model.logo ] []
, div [] [ text model.message ]
]



---- PROGRAM ----


main : Program String Model Msg
main =
programWithFlags { view = view, init = init, update = update, subscriptions = subscriptions }
Html.programWithFlags
{ view = view
, init = init
, update = update
, subscriptions = \_ -> Sub.none
}