Skip to content

Instantly share code, notes, and snippets.

@nkpart

nkpart/gist:11538

Created September 19, 2008 04:39
Show Gist options
  • Save nkpart/11538 to your computer and use it in GitHub Desktop.
Save nkpart/11538 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
right :: Either a b -> Maybe b
right = either (\a -> Nothing) (\b -> Just b)
-- With more win:
right :: Either a b -> Maybe b
right = either (\a -> mzero) return
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment