Exception when running Haskell program

打开共享的 CodeWorld 程序，并在 Firefox 中重现异常。先从 runBaseJS 堆栈开始，尤其关注 h$upd_frame，然后将失败的运行结果与预期的两条线绘图进行比较。当共享程序能够在没有 TypeError 的情况下运行并绘制出两条线时，即表示完成。

Shared Program: https://code.world/haskell#Pzf4CuhpqMeyaVWNgHuW8lQ

Description:

When writing a program in CodeWorld (Haskell) I encountered a bug where running the program resulted in exception (apparently with JS, looking at the error message below). The shared program is expected to draw 2 lines but instead gives the error:

  uncaught exception in Haskell thread: TypeError: h$RTS_586.d2 is not a functionh$upd_frame@https://code.world/runBaseJS?version=b1bb58319376914fc0f41aa2c9c47165704b8b23b6e18a64a73af23f08132274:17139:33
  h$runThreadSlice@https://code.world/runBaseJS?version=b1bb58319376914fc0f41aa2c9c47165704b8b23b6e18a64a73af23f08132274:6547:11
  h$runThreadSliceCatch@https://code.world/runBaseJS?version=b1bb58319376914fc0f41aa2c9c47165704b8b23b6e18a64a73af23f08132274:6523:12
  h$mainLoop@https://code.world/runBaseJS?version=b1bb58319376914fc0f41aa2c9c47165704b8b23b6e18a64a73af23f08132274:6518:9
  partiallyApplied/<@https://code.world/runBaseJS?version=b1bb58319376914fc0f41aa2c9c47165704b8b23b6e18a64a73af23f08132274:2145:25
  runIfPresent@https://code.world/runBaseJS?version=b1bb58319376914fc0f41aa2c9c47165704b8b23b6e18a64a73af23f08132274:2159:21
  onGlobalMessage@https://code.world/runBaseJS?version=b1bb58319376914fc0f41aa2c9c47165704b8b23b6e18a64a73af23f08132274:2188:29

Reloading the page and running in different PC seems to have the same result.

Browser:

Mozilla Firefox 94.0.1

OS:

Edition Windows 10 Home
Version 21H1
OS build 19043.1348
Experience Windows Feature Experience Pack 120.2212.3920.0