From 0705fbf7c20c5002c26a2c9faa9663b047189e39 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sat, 8 Jan 2022 16:17:10 +0100 Subject: ... --- src/Update/Story.elm | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'src/Update/Story.elm') diff --git a/src/Update/Story.elm b/src/Update/Story.elm index d2fc75f..3c9d041 100644 --- a/src/Update/Story.elm +++ b/src/Update/Story.elm @@ -42,9 +42,19 @@ step model = } ) - Nothing -> model -- TODO: error + Nothing -> + {model | + ui = + (Struct.UI.display_string_error + ( + "[Programming error] Cannot 'step' Tonkadur story:" + ++ " Not in MustContinue state." + ) + model.ui + ) + } - Tonkadur.Types.MustEnd -> model -- TODO + Tonkadur.Types.MustEnd -> model -- TODO, although that might be right. (Tonkadur.Types.MustPromptCommand min max label) -> {model | -- cgit v1.2.3-70-g09d2