Set up basic web application template
This commit is contained in:
commit
e3ccab2c82
5
src/CacheSim/Model.elm
Normal file
5
src/CacheSim/Model.elm
Normal file
|
@ -0,0 +1,5 @@
|
||||||
|
module CacheSim.Model exposing (..)
|
||||||
|
|
||||||
|
type alias Model = ()
|
||||||
|
type alias Flags = ()
|
||||||
|
type alias Msg = ()
|
25
src/Main.elm
Normal file
25
src/Main.elm
Normal 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
|
||||||
|
}
|
Loading…
Reference in New Issue
Block a user