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/Update.elm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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

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