Initial commit. Set up a basic project scaffold.

This commit is contained in:
2019-06-20 21:04:23 -07:00
commit 5b0e9df4f9
5 changed files with 62 additions and 0 deletions

27
src/Main.elm Normal file
View File

@@ -0,0 +1,27 @@
module Main exposing (main)
import Start.Model exposing (Flags, Model, Msg)
import Start.View exposing (view)
import Browser exposing (Document, document)
init : Flags -> (Model, Cmd Msg)
init () = ((), Cmd.none)
view : Model -> Document Msg
view m =
{ title = "Start Page"
, body = Start.View.view m
}
update : Msg -> Model -> (Model, Cmd Msg)
update () () = ((), Cmd.none)
subscriptions : Model -> Sub Msg
subscriptions () = Sub.none
main : Program Flags Model Msg
main = document
{ init = init
, view = view
, update = update
, subscriptions = subscriptions
}

5
src/Start/Model.elm Normal file
View File

@@ -0,0 +1,5 @@
module Start.Model exposing (Flags, Model, Msg)
type alias Flags = ()
type alias Model = ()
type alias Msg = ()

6
src/Start/View.elm Normal file
View File

@@ -0,0 +1,6 @@
module Start.View exposing (view)
import Start.Model exposing (Model, Msg)
import Html exposing (Html, text)
view : Model -> List (Html Msg)
view () = [ text "Hello, world!" ]