28 lines
644 B
Elm
28 lines
644 B
Elm
module Main exposing (main)
|
|
import SeqSim.Model exposing (Model, Msg, Flags, begin)
|
|
import SeqSim.Render exposing (view)
|
|
import SeqSim.Update exposing (update)
|
|
import Browser exposing (Document, document)
|
|
|
|
init : Flags -> (Model, Cmd Msg)
|
|
init f = (begin, Cmd.none)
|
|
|
|
view : Model -> Document Msg
|
|
view m =
|
|
{ title = "Sequential Consistency Explorer"
|
|
, body = SeqSim.Render.view m
|
|
}
|
|
|
|
update : Msg -> Model -> (Model, Cmd Msg)
|
|
update = SeqSim.Update.update
|
|
|
|
subscriptions : Model -> Sub Msg
|
|
subscriptions m = Sub.none
|
|
|
|
main = document
|
|
{ init = init
|
|
, view = view
|
|
, update = update
|
|
, subscriptions = subscriptions
|
|
}
|