| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/background')
| -rw-r--r-- | src/background/src/ElmModule/Init.elm | 15 | ||||
| -rw-r--r-- | src/background/src/Main.elm | 3 |
2 files changed, 13 insertions, 5 deletions
diff --git a/src/background/src/ElmModule/Init.elm b/src/background/src/ElmModule/Init.elm index 350a070..3320291 100644 --- a/src/background/src/ElmModule/Init.elm +++ b/src/background/src/ElmModule/Init.elm @@ -1,6 +1,7 @@ module ElmModule.Init exposing (init) -- Elm ------------------------------------------------------------------------- +import Json.Decode -- Extension ------------------------------------------------------------------- import Struct.Event @@ -14,9 +15,17 @@ import Struct.Model -------------------------------------------------------------------------------- -- EXPORTED -------------------------------------------------------------------- -------------------------------------------------------------------------------- -init : Struct.Flags.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type)) -init flags = +init : String -> (Struct.Model.Type, (Cmd Struct.Event.Type)) +init encoded_flags = ( - (Struct.Model.new flags), + (Struct.Model.new + ( + case + (Json.Decode.decodeString (Struct.Flags.decoder) encoded_flags) + of + (Err _) -> (Struct.Flags.default) + (Ok flags) -> flags + ) + ), Cmd.none ) diff --git a/src/background/src/Main.elm b/src/background/src/Main.elm index 8140041..ffa21fa 100644 --- a/src/background/src/Main.elm +++ b/src/background/src/Main.elm @@ -4,14 +4,13 @@ import Html -- Map ------------------------------------------------------------------- import Struct.Model import Struct.Event -import Struct.Flags import ElmModule.Init import ElmModule.Subscriptions import ElmModule.View import ElmModule.Update -main : (Program Struct.Flags.Type Struct.Model.Type Struct.Event.Type) +main : (Program String Struct.Model.Type Struct.Event.Type) main = (Html.programWithFlags { |