[Haskell-cafe] Split function

Hi, Is this a good implementation of split function? ... I was wondering about the "lines" function, it basically a special case of split right? split c xs = foldr f [[]] xs where f x list@(l:ls)= if x == c then []:list else (x:l):ls Regards, Kashyap