From f86032ff459f57c8cda368b48888a39c848d263b Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sat, 1 Jan 2022 16:32:45 +0100
Subject: Adds JSON decoding.

---
 src/ElmModule/Init.elm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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

diff --git a/src/ElmModule/Init.elm b/src/ElmModule/Init.elm
index 885153a..08c2540 100644
--- a/src/ElmModule/Init.elm
+++ b/src/ElmModule/Init.elm
@@ -5,6 +5,8 @@ import Struct.Flags
 import Struct.Event
 import Struct.Model
 
+import Comm.LoadStory
+
 --------------------------------------------------------------------------------
 -- LOCAL -----------------------------------------------------------------------
 --------------------------------------------------------------------------------
@@ -15,4 +17,4 @@ import Struct.Model
 init : Struct.Flags.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type))
 init flags =
    -- TODO: read flags and request story.
-   ((Struct.Model.new), Cmd.none)
+   ((Struct.Model.new), (Comm.LoadStory.request "/story/0.json"))
-- 
cgit v1.2.3-70-g09d2