| summaryrefslogtreecommitdiff |
diff options
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) -> ( |