| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/Update/Story.elm')
| -rw-r--r-- | src/Update/Story.elm | 14 |
1 files changed, 12 insertions, 2 deletions
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 | |