Initial commit. Set up a basic project scaffold.

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

BIN
background.jpg Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.8 MiB

24
elm.json Normal file
View File

@ -0,0 +1,24 @@
{
"type": "application",
"source-directories": [
"src"
],
"elm-version": "0.19.0",
"dependencies": {
"direct": {
"elm/browser": "1.0.1",
"elm/core": "1.0.2",
"elm/html": "1.0.0"
},
"indirect": {
"elm/json": "1.1.3",
"elm/time": "1.0.0",
"elm/url": "1.0.0",
"elm/virtual-dom": "1.0.2"
}
},
"test-dependencies": {
"direct": {},
"indirect": {}
}
}

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!" ]