Set up basic web application template

This commit is contained in:
Danila Fedorin 2019-05-27 14:08:48 -07:00
commit e3ccab2c82
2 changed files with 30 additions and 0 deletions

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

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

25
src/Main.elm Normal file
View File

@ -0,0 +1,25 @@
import CacheSim.Model exposing (..)
import Browser exposing (Document, document)
import Html exposing (text)
init : Flags -> (Model, Cmd Msg)
init f = ((), Cmd.none)
view : Model -> Document Msg
view m =
{ title = "Cache Simulator"
, body = [ text "Hello, world!" ]
}
update : Msg -> Model -> (Model, Cmd Msg)
update msg m = (m, Cmd.none)
subscriptions : Model -> Sub Msg
subscriptions m = Sub.none
main = document
{ init = init
, view = view
, update = update
, subscriptions = subscriptions
}