From 18ebe6e6ca4299b7f903426502c5a5fb73747c81 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Mon, 27 Dec 2021 22:32:32 +0100
Subject: ...

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

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

diff --git a/src/ElmModule/Update.elm b/src/ElmModule/Update.elm
index a4b827a..3dbad82 100644
--- a/src/ElmModule/Update.elm
+++ b/src/ElmModule/Update.elm
@@ -6,6 +6,8 @@ module ElmModule.Update exposing (update)
 import Struct.Event
 import Struct.Model
 
+import Update.Story
+
 --------------------------------------------------------------------------------
 -- LOCAL -----------------------------------------------------------------------
 --------------------------------------------------------------------------------
@@ -21,3 +23,5 @@ update : (
 update event model =
    case event of
       Struct.Event.None -> (model, Cmd.none)
+      (Struct.Event.ChoiceSelected ix) ->
+         ((Update.Story.select_choice ix model), Cmd.none)
-- 
cgit v1.2.3-70-g09d2