Add an initial Main.elm file

This commit is contained in:
Danila Fedorin 2023-11-26 11:43:38 -08:00
parent 95c30b6891
commit 800c96dc7b

37
src/Main.elm Normal file
View 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
}