searching for a substring

Hi I've written a function that checks for a substring in a given string. This seems like a common thing to do and was wondering if there is a function that does this in one of the standard modules. stringContains :: String -> String -> Bool stringContains _ [] = True stringContains [] _ = False stringContains (h:t) (h1:t1) = if h == h1 then stringContains t t1 else stringContains t (h1:t1) -- sashan http://sashan.netfirms.com -------------------------------------------------- Brain: Here we are, Pinky--at the dawn of time! Pinky: Narf, Brain. Wake me at the noon of time.