aboutsummaryrefslogtreecommitdiff
path: root/Haskell-book/18/Bind.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Haskell-book/18/Bind.hs')
-rw-r--r--Haskell-book/18/Bind.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/Haskell-book/18/Bind.hs b/Haskell-book/18/Bind.hs
new file mode 100644
index 0000000..daeaada
--- /dev/null
+++ b/Haskell-book/18/Bind.hs
@@ -0,0 +1,6 @@
+module Bind where
+
+import Control.Monad
+
+bind :: Monad m => (a -> m b) -> m a -> m b
+bind f x = join $ fmap f x