38 lines
743 B
Elm
38 lines
743 B
Elm
|
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
|
||
|
|
}
|