$ cabal v2-build

src/Language/VintageBasic/Interpreter.hs:354:17: error:
• No instance for (Control.Monad.Fail.MonadFail
(Control.Monad.CPST.CPST (Excep Result BasicRT ()) BasicRT))
arising from a do statement
with the failable pattern ‘(FloatVal index)’
• In a stmt of a 'do' block:
(FloatVal index) <- getScalarVar control
In the expression:
do (FloatVal index) <- getScalarVar control
let index' = index + step
setScalarVar control (FloatVal index')
if (step >= 0 && index' <= lim) || (step < 0 && index' >= lim) then
continue True
else
resume False
In the expression:
if isNext x || isNextVar control x then
do (FloatVal index) <- getScalarVar control
let index' = ...
setScalarVar control (FloatVal index')
....
else
passOn True
|
354 | (FloatVal index) <- getScalarVar control
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

[16 of 18] Compiling Language.VintageBasic.Parser ( src/Language/VintageBasic/Parser.hs, dist/build/vintbas/vintbas-tmp/Language/VintageBasic/Parser.o )

$ cabal --version
cabal-install version 2.4.0.0
compiled using version 2.4.0.1 of the Cabal library

Description: A program displays some data in columns and then asks for information at the end of the line with an INPUT statement. The user submits the input by hitting RETURN. This sends the cursor back to column 1 on the screen, but the TAB count is not reset.
Example:

10 REM TAB count is not reset after INPUT statement
20 REM Program asks for input at end of line of information
30 PRINT TAB(10);"TEN";TAB(20);"XX";TAB(30);30;TAB(40);"TYPE HERE:";TAB(60);
40 INPUT A$
50 GOTO 30

This issue is found in line 112 in the Defuse game in More BASIC Computer Games - See Atariarchives.org.