Как получить глобальное событие keydown в Reflex?

#ghcjs #reflex

#ghcjs #рефлекс

Вопрос:

Моя текущая попытка получить событие глобального нажатия клавиши (например: пользователь нажимает сочетание клавиш из любой точки пользовательского интерфейса, чтобы вызвать открытие модального диалога):

   prerender_ blank $ do
    -- ctx <- askJSM
    doc <- currentDocumentUnchecked
    win <- currentWindowUnchecked
    let clicked = traceEvent "hit" $ keydown Enter win
    widgetHold_ (text "Waiting") $
      ffor clicked $ () -> do
        text "CLICKED"
 

Однако при этом не выполняется проверка типа

     • Could not deduce: DomEventType JSDOM.Types.Window 
'KeydownTag ~ Word arising from a use of ‘keydown’
 

Глядя на источник, есть только Element EventResult d t экземпляр, но не Window or Document .

Какой идиоматический способ добиться того, что я пытаюсь сделать здесь, в reflex / ghcjs?