Skip to content

Instantly share code, notes, and snippets.

@rntz

rntz/wut.hs

Created July 12, 2017 11:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save rntz/9263883e73752f0bb00dcd84af9c933f to your computer and use it in GitHub Desktop.
Save rntz/9263883e73752f0bb00dcd84af9c933f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
wut.hs
import Control.Monad
data Wut a = Wut
instance Functor Wut where fmap = liftM
instance Applicative Wut where pure = return; (<*>) = ap
instance Monad Wut where
return _ = Wut
Wut >>= f = Wut
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment