| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/ElmModule')
| -rw-r--r-- | src/ElmModule/Init.elm | 12 | ||||
| -rw-r--r-- | src/ElmModule/Update.elm | 12 |
2 files changed, 21 insertions, 3 deletions
diff --git a/src/ElmModule/Init.elm b/src/ElmModule/Init.elm index 08c2540..28a82e0 100644 --- a/src/ElmModule/Init.elm +++ b/src/ElmModule/Init.elm @@ -16,5 +16,13 @@ import Comm.LoadStory -------------------------------------------------------------------------------- init : Struct.Flags.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type)) init flags = - -- TODO: read flags and request story. - ((Struct.Model.new), (Comm.LoadStory.request "/story/0.json")) + ( + (Struct.Model.new flags), + (Comm.LoadStory.request + ( + "/story/" + ++ (Struct.Flags.force_get_parameter flags "story") + ++ ".json" + ) + ) + ) diff --git a/src/ElmModule/Update.elm b/src/ElmModule/Update.elm index 9e45fde..9fc9a93 100644 --- a/src/ElmModule/Update.elm +++ b/src/ElmModule/Update.elm @@ -30,7 +30,17 @@ update event model = (Struct.Event.LoadStory http_result) -> case http_result of (Ok story) -> - ((Update.Story.start {model | tonkadur = story}), Cmd.none) + ( + (Update.Story.start + {model | + tonkadur = + {story | + random_seed = model.tonkadur.random_seed + } + } + ), + Cmd.none + ) (Err error) -> ( |