haskell中子串替换的最佳方法

import Data.List (intercalate)

replace :: Eq a => [a] -> [a] -> [a] -> [a]
replace old new = intercalate new . splitOn old

main :: IO ()
main = do
  let original = "The quick brown fox jumps over the lazy dog"
  let replaced = replace "lazy" "sleepy" original
  putStrLn replaced

The quick brown fox jumps over the sleepy dog