Skip to content

Instantly share code, notes, and snippets.

@ratopi
Created January 9, 2020 13:53
Show Gist options
  • Save ratopi/e59f282cf0e71792daa0f843d2bc7d8c to your computer and use it in GitHub Desktop.
Save ratopi/e59f282cf0e71792daa0f843d2bc7d8c to your computer and use it in GitHub Desktop.
Elm Starter
module Hinweise exposing (..)
import Browser
import Html
import Time
type Msg
= TickMsg Time.Posix
type Model = NoModel
main : Program () Model Msg
main =
Browser.element
{ init = init
, update = update
, subscriptions = subscriptions
, view = view
}
subscriptions : Model -> Sub Msg
subscriptions _ =
Time.every 5000 TickMsg
init : () -> (Model, Cmd Msg)
init _ = ( NoModel , Cmd.none )
update : Msg -> Model -> ( Model , Cmd Msg )
update msg model = ( NoModel , Cmd.none )
view : Model -> Html.Html Msg
view model = Html.text "Hallo, Welt"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment