[Haskell-cafe] An alternative break

Hello, I need a break function that splits the list one element further than the ordinary break. This is the simplest solution I could imagine: breakI :: (a -> Bool) -> [a] -> ([a], [a]) breakI p s = case break p s of ([], []) -> ([], []) (x, []) -> (x, []) (x, l) -> (x ++ [head l], tail l ) Is there a better way to write this ? thanks in advance, Pieter -- Pieter Laeremans