| 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