Prepare notification form

This commit is contained in:
Eike Kettner
2020-04-18 00:50:46 +02:00
parent fb348b3a7c
commit e97e0db45c
7 changed files with 189 additions and 19 deletions

View File

@ -0,0 +1,42 @@
module Comp.NotificationForm exposing
( Model
, Msg
, init
, update
, view
)
import Api.Model.NotificationSettings exposing (NotificationSettings)
import Data.Flags exposing (Flags)
import Html exposing (..)
import Html.Attributes exposing (..)
type alias Model =
{ settings : NotificationSettings
}
type Msg
= Submit
init : Model
init =
{ settings = Api.Model.NotificationSettings.empty
}
update : Flags -> Msg -> Model -> ( Model, Cmd Msg )
update flags msg model =
( model, Cmd.none )
view : Model -> Html Msg
view model =
div
[ classList
[ ( "ui form", True )
]
]
[]