'encodeJSON' from package 'json' causes infinite loop at runtime.

[rustydc]

This example makes my Chrome tab hang:

module Main where
import Haste
import Text.JSON.Generic
main = alert (encodeJSON (Just True))