findFailing :: [a] -> (a -> Result) -> Maybe (a, Result) | |
findFailing smaller runSub = | |
let results = map runSub smaller | |
in find (isFailure . snd) (zip smaller results) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment