Il y a la fonction stripPrefix dans le module Data.List qui est pas mal



replace :: String -> String -> String -> String
replace _ _ [] = []
replace toBeReplaced substitute s@(x:xs) =
...