1
1
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-12-29 08:32:39 +03:00
noredink-ui/styleguide/Main.elm

30 lines
795 B
Elm
Raw Normal View History

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
}