h21.hs « monad - typeclass.git - Typeclassopedia, exercises

summary refs log tree commit diff

path: root/monad/h21.hs

blob: c843dcb21776b43bcdbec87f83fca6b9e44737c8 (plain)

1
2
3

(>>=) m f = join $ fmap f m
join x = x >>= id
fmap f x = x >>= (return . f)