From f86032ff459f57c8cda368b48888a39c848d263b Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sat, 1 Jan 2022 16:32:45 +0100 Subject: Adds JSON decoding. --- src/Update/Story.elm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Update/Story.elm') diff --git a/src/Update/Story.elm b/src/Update/Story.elm index 4d1bfaa..68ed403 100644 --- a/src/Update/Story.elm +++ b/src/Update/Story.elm @@ -1,5 +1,6 @@ module Update.Story exposing ( + start, select_choice, input_string, input_integer, @@ -135,6 +136,8 @@ step model = -------------------------------------------------------------------------------- -- EXPORTED -------------------------------------------------------------------- -------------------------------------------------------------------------------- +start : Struct.Model.Type -> Struct.Model.Type +start model = (step model) select_choice : Int -> Struct.Model.Type -> Struct.Model.Type select_choice ix model = model -- cgit v1.2.3-70-g09d2