Exception when running Haskell program

共有された CodeWorld プログラムを開き、Firefox で例外を再現します。まず runBaseJS のスタック、特に h$upd_frame を確認し、失敗する実行結果を期待される 2 本の線の描画と比較します。共有されたプログラムが 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