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