1

我想重写interact函数，但使用Text而不是String. 是否可以使用Data.Text和/或Data.Text.Lazy完成与 相同的行为interact？

例如，当我使用以下命令运行此程序时String：

main = interact (unlines . map f . lines)
  where f "hello" = "wassup"
        f _ = "wat?"

它等待一行输入，然后打印出一行作为响应，并等待下一行输入。我想编写相同的代码并使其适用于Text.

{-# LANGUAGE OverloadedStrings #-}
import Data.Text.Lazy (Text)
import qualified Data.Text.Lazy as T

textInteract :: (Text -> Text) -> IO ()
textInteract = undefined

main = textInteract (T.unlines . map f . T.lines)
  where f "hello" = "wassup"
        f _ = "wat?"

但不要只是textInteract这个用例的特殊情况。interact我希望它在所有情况下的行为都相同。

4

1 回答 1