Proposal for splitWhen function

[EverybodyKurts]

It would combine the following function signatures:

findIndex : (a -> Bool) -> List a -> Maybe Int
splitAt : Int -> List a -> (List a, List a)

Here's a first stab at it:

splitWhen : (a -> Bool) -> List a -> Maybe ( List a, List a )
splitWhen predicate list =
    let
        index =
            findIndex predicate list
    in
        case index of
            Just i ->
                Just (splitAt i list)

            Nothing ->
                Nothing

[mgold]

How about:

splitWhen : (a -> Bool) -> List a -> Maybe ( List a, List a )
splitWhen predicate list =
    findIndex predicate list
    |> Maybe.map (\i -> splitAt i list)

[EverybodyKurts]

Wow, way shorter, lol. Looks good to me. Would love to be able to submit a pull request to this repo (with tests included). You think that'd work?

[mgold]

Sure.

(This repo has no maintainer so I'll go ahead and handle this.)