mirror of
https://github.com/NoRedInk/noredink-ui.git
synced 2024-11-27 13:02:42 +03:00
30 lines
795 B
Elm
30 lines
795 B
Elm
module Main exposing (main)
|
|
|
|
import App exposing (..)
|
|
import Browser
|
|
import Browser.Navigation as Navigation
|
|
|
|
|
|
main : Program () (Model Navigation.Key) Msg
|
|
main =
|
|
Browser.application
|
|
{ init =
|
|
\() flags key ->
|
|
let
|
|
( model, effect ) =
|
|
init () flags key
|
|
in
|
|
( model, perform model.navigationKey effect )
|
|
, update =
|
|
\msg oldModel ->
|
|
let
|
|
( model, effect ) =
|
|
update msg oldModel
|
|
in
|
|
( model, perform model.navigationKey effect )
|
|
, subscriptions = subscriptions
|
|
, view = view
|
|
, onUrlRequest = OnUrlRequest
|
|
, onUrlChange = OnUrlChange
|
|
}
|