Haskell Reflex：字符串上的类型错误

Question

我正在研究github页面上的reflex-frp示例，并且卡在了动态和事件部分。我尝试使用ghcjs编译以下代码：

{-# LANGUAGE OverloadedStrings #-}

import Reflex
import Reflex.Dom

main = mainWidget $ el "div" $ do
    t <- textInput def
    text "Last key pressed: "
    let keypressEvent = fmap show $ _textInput_keypress t
    keypressDyn <- holdDyn "None" keypressEvent
    dynText keypressDyn

但我收到了错误

eventTest.hs:11:13: error:
    • Couldn't match type ‘[Char]’ with ‘Data.Text.Internal.Text’
      Expected type: Dynamic
                       (SpiderTimeline Global) Data.Text.Internal.Text
        Actual type: Dynamic (SpiderTimeline Global) String

我理解String应该被解析为Data.Text.Internal.Text，但不知道如何实现这一点 - 我认为顶部的OverloadedStrings语句应该解决这个问题。有人知道如何解决这个错误吗？