Exception when running Haskell program

**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