haskell - 为什么 Data.Text.Lazy.replace 和 Data.Text.Lazy.append 不起作用？

Question

下面的代码是使用 str1 替换字符串的三种不同方式( str2 、 str3 和 Data.Text.Lazy.replace ) .他们应该给出相同的输出。

import Data.Text.Lazy as DTL

str1 :: String
str1 = DTL.unpack $ DTL.replace key value text
  where key = DTL.pack "<<name>>"
        value = DTL.pack "Joyce"
        text = DTL.pack "Hello, <<name>>."

str2 :: String
str2 = DTL.unpack $ DTL.replace key value text
  where key = DTL.pack "<<" `DTL.append` DTL.pack "name" 
                            `DTL.append` DTL.pack ">>"
        value = DTL.pack "Joyce"
        text = DTL.pack "Hello, <<name>>."

str3 :: String
str3 = DTL.unpack $ DTL.replace key value text
  where key = DTL.pack $ "<<" ++ "name" ++ ">>"
        value = DTL.pack "Joyce"
        text = DTL.pack "Hello, <<name>>."

main :: IO ()
main = do putStrLn str1
          putStrLn str2
          putStrLn str3

但是运行程序的结果是:

Hello, Joyce.
Hello, <<name>>.
Hello, Joyce.

为什么 str2 不能正常工作？代码有什么问题吗？

Answer 1

感谢您的错误报告，伙计们。我会调查一下，然后在这里跟进我的发现。