haskell - Haskell Reflex: 文字列の型エラー

Question

私は github ページの reflex-frp の例を調べていて、Dynamics and Events セクションで行き詰まりました。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 ステートメントがこの問題を解決するはずだと思いました。このエラーを修正する方法を知っている人はいますか?