7 lines
112 B
Haskell
7 lines
112 B
Haskell
module Bind where
|
|
|
|
import Control.Monad
|
|
|
|
bind :: Monad m => (a -> m b) -> m a -> m b
|
|
bind f x = join $ fmap f x
|