| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2022-01-08 16:17:10 +0100 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2022-01-08 16:17:10 +0100 |
| commit | 0705fbf7c20c5002c26a2c9faa9663b047189e39 (patch) | |
| tree | c3859117733e576aa09b87f2576852ff6703943a /src/ElmModule/Update.elm | |
| parent | 127f9c3fe7190a4e5daebf63b6fad7dd75af3257 (diff) | |
...
Diffstat (limited to 'src/ElmModule/Update.elm')
| -rw-r--r-- | src/ElmModule/Update.elm | 12 |
1 files changed, 11 insertions, 1 deletions
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) -> ( |