update monad/constantmonad definitions

src/index.js

@@ -39,9 +39,10 @@ const ConstantFunctor = {
   map: constant
 }
 
-const ConstantMonad = {
+const ConstantMonad = of => ({
+  of,
   bind: constant
-}
+})
 
 const PointedFunctor = of => ({
   of
@@ -52,10 +53,10 @@ const Applicative = {
   ap
 }
 
-const Monad = {
+const Monad = of => ({
-  ...PointedFunctor,
+  ...PointedFunctor(of),
   bind
-}
+})
 
 const Comonad = {
   extract,
@@ -65,22 +66,19 @@ const Comonad = {
 export const Identity = value => create(
   Value(value),
   Functor,
-  PointedFunctor(Identity),
+  Monad(Identity)
-  Monad
 )
 
 export const Constant = value => create(
   Value(value),
   ConstantFunctor,
-  ConstantMonad,
+  ConstantMonad(Constant),
-  PointedFunctor(constant)
 )
 
 export const Ok = value => create(
   Value(value),
   Functor,
-  PointedFunctor(Ok),
+  Monad(Ok),
-  Monad,
   {
     isOk: true,
     isErr: false,
@@ -90,8 +88,7 @@ export const Ok = value => create(
 export const Err = value => create(
   Value(value),
   ConstantFunctor,
-  ConstantMonad,
+  ConstantMonad(Err),
-  PointedFunctor(Err),
   {
     isOk: false,
     isErr: true,
@@ -102,8 +99,7 @@ export const Err = value => create(
 export const Some = value => create(
   Value(value),
   Functor,
-  PointedFunctor(Some),
+  Monad(Some),
-  Monad,
   {
     isSome: true,
     isNone: false,
@@ -115,8 +111,7 @@ export const None = () => NoneConstant
 
 const NoneConstant = create(
   ConstantFunctor,
-  ConstantMonad,
+  ConstantMonad(None),
-  PointedFunctor(None),
   {
     isSome: false,
     isNone: true,