Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
joinTree :: Tree (Tree Result) -> Tree Result
joinTree (Tree (Tree innerArgResult innerArgShrinks) outerArgShrinks) =
Tree innerArgResult
(map joinTree outerArgShrinks ++ innerArgShrinks)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment