Use explicit concat function for getEndomorphismMonoid

gcanti · May 15, 2019 · accbd86 · accbd86
1 parent 629141c
commit accbd86
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Monoid.ts b/src/Monoid.ts
@@ -1,5 +1,5 @@
 import { Bounded } from './Bounded'
-import { compose, Endomorphism, identity, concat } from './function'
+import { Endomorphism, identity, concat } from './function'
 import {
   fold as foldSemigroup,
   getDictionarySemigroup,
@@ -177,7 +177,7 @@ export const getFunctionMonoid = <M>(M: Monoid<M>) => <A = never>(): Monoid<(a:
  */
 export const getEndomorphismMonoid = <A = never>(): Monoid<Endomorphism<A>> => {
   return {
-    concat: compose,
+    concat: (x, y) => a => x(y(a)),
     empty: identity
   }
 }