使用文本而不是字符串的“交互”

Question

我想重寫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於所有情況。

Answer 1

http://hackage.haskell.org/packages/archive/text/0.11.2.0/doc/html/Data-Text-Lazy-IO.html

已經為您進行了interact :)

http://hackage.haskell.org/packages/archive/text/0.11.2.0/doc/html/Data-Text-IO.html似乎也是如此