[Haskell-cafe] An alternative break

[Pieter Laeremans]

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 <pieter at laeremans.org>