From 0705fbf7c20c5002c26a2c9faa9663b047189e39 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sat, 8 Jan 2022 16:17:10 +0100
Subject: ...

---
 src/ElmModule/Init.elm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'src/ElmModule/Init.elm')

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"
+         )
+      )
+   )
-- 
cgit v1.2.3-70-g09d2