在下面的代码中,有三种不同的方式(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无法正常工作？代码有什么问题吗？
解决方法
伙计们,感谢错误报告.我会调查一下,然后按照我的发现跟进.
