ghcjs issue

Main.hs

module Main where

import GHCJS.DOM
import GHCJS.DOM.Types
import GHCJS.DOM.Document
import GHCJS.DOM.EventM

main = do
    Just doc <- currentDocument
    connect "keydown" doc $ do
        return () :: EventM KeyboardEvent Document ()
    return ()

{-

generating native
[1 of 1] Compiling Main             ( Main.hs, Main.o )
generating JavaScript
[1 of 1] Compiling Main             ( Main.hs, Main.js_o )
Linking Main.jsexe (Main)
Objectable get StaticVal: invalid tag 0

-}