Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
overFailure :: Result -> (Result -> Result) -> Result
overFailure Success _ = Success
overFailure failure f = f failure
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment