| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/ElmModule/Init.elm')
| -rw-r--r-- | src/ElmModule/Init.elm | 12 |
1 files changed, 10 insertions, 2 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" + ) + ) + ) |