Skip to content

Instantly share code, notes, and snippets.

@fumieval

fumieval/UnsafeMonad.hs

Created February 6, 2012 09:19
Show Gist options
  • Save fumieval/1751020 to your computer and use it in GitHub Desktop.
Save fumieval/1751020 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
UnsafeMonad.hs
infixl 1 ☢>>=☢
class Monad m => UnsafeMonad m where
(☢>>=☢) :: m a -> (a -> b) -> b
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment