path: root/Haskell-book/18/Bind.hs

module Bind where

import Control.Monad

bind :: Monad m => (a -> m b) -> m a -> m b
bind f x = join $ fmap f x