Add an initial Main.elm file
This commit is contained in:
parent
95c30b6891
commit
800c96dc7b
37
src/Main.elm
Normal file
37
src/Main.elm
Normal file
|
@ -0,0 +1,37 @@
|
|||
module Main exposing (main)
|
||||
|
||||
import Browser
|
||||
import Html exposing (Html)
|
||||
import Bergamot.Syntax exposing (..)
|
||||
import Bergamot.Search exposing (..)
|
||||
import Bergamot.Rules exposing (..)
|
||||
import Bergamot.Parser exposing (..)
|
||||
import Maybe
|
||||
import Tuple
|
||||
import Debug
|
||||
|
||||
type alias Model = {}
|
||||
type alias Flags = ()
|
||||
type alias Msg = ()
|
||||
|
||||
init : Flags -> (Model, Cmd Msg)
|
||||
init () = ({}, Cmd.none)
|
||||
|
||||
view : Model -> Html Msg
|
||||
view _ = Html.div [] []
|
||||
|
||||
update : Msg -> Model -> (Model, Cmd Msg)
|
||||
update msg m =
|
||||
case msg of
|
||||
() -> (m, Cmd.none)
|
||||
|
||||
subscriptions : Model -> Sub Msg
|
||||
subscriptions _ = Sub.none
|
||||
|
||||
main =
|
||||
Browser.element
|
||||
{ init = init
|
||||
, view = view
|
||||
, update = update
|
||||
, subscriptions = subscriptions
|
||||
}
|
Loading…
Reference in New Issue
Block a user