mirror of
https://github.com/correl/riichi.git
synced 2025-01-10 03:00:19 +00:00
38 lines
518 B
Elm
38 lines
518 B
Elm
|
module Riichi exposing (..)
|
||
|
|
|
||
|
|
import Html exposing (..)
|
||
|
|
|
||
|
|
|
||
|
|
type alias Model =
|
||
|
|
{}
|
||
|
|
|
||
|
|
|
||
|
|
type Msg
|
||
|
|
= Noop
|
||
|
|
|
||
|
|
|
||
|
|
init : ( Model, Cmd Msg )
|
||
|
|
init =
|
||
|
|
( {}, Cmd.none )
|
||
|
|
|
||
|
|
|
||
|
|
update : Msg -> Model -> ( Model, Cmd Msg )
|
||
|
|
update msg model =
|
||
|
|
( model, Cmd.none )
|
||
|
|
|
||
|
|
|
||
|
|
main : Program Never Model Msg
|
||
|
|
main =
|
||
|
|
program
|
||
|
|
{ init = init
|
||
|
|
, update = update
|
||
|
|
, view = view
|
||
|
|
, subscriptions = \_ -> Sub.none
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
view : Model -> Html Msg
|
||
|
|
view model =
|
||
|
|
div []
|
||
|
|
[ h1 [] [ text "Riichi Mahjong" ] ]
|