Haskell：使用Data.Text.replace替换仅第一次出现的文本值

Question

如何仅替换第一次出现的“substring”（实际上是Data.Text.Text）Haskell中的Text值最有效的方法？

Answer 1

可以breakOn子串，

breakOn :: Text -> Text -> (Text, Text) 

到Text成两部分在图案的第一次出现分裂，然后更换子在所述第二部件的开始：

replaceOne :: Text -> Text -> Text -> Text 
replaceOne pattern substitution text 
    | T.null back = text -- pattern doesn't occur 
    | otherwise = T.concat [front, substitution, T.drop (T.length pattern) back] 
    where 
     (front, back) = breakOn pattern text