diff options
Diffstat (limited to 'stdlib/source/lux/control/monoid.lux')
-rw-r--r-- | stdlib/source/lux/control/monoid.lux | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/stdlib/source/lux/control/monoid.lux b/stdlib/source/lux/control/monoid.lux index 7d89043a8..33d082020 100644 --- a/stdlib/source/lux/control/monoid.lux +++ b/stdlib/source/lux/control/monoid.lux @@ -1,6 +1,5 @@ (.module: - lux - [// [fold (#+ Fold)]]) + [lux #*]) (signature: #export (Monoid a) {#.doc (doc "A way to compose values." @@ -18,8 +17,3 @@ (def: (compose [lL rL] [lR rR]) [(:: Monoid<l> compose lL lR) (:: Monoid<r> compose rL rR)]))) - -(def: #export (fold Monoid<a> Fold<F> data) - (All [a F] (-> (Monoid a) (Fold F) (F a) a)) - (let [(^open "a/.") Monoid<a>] - (:: Fold<F> fold a/compose a/identity data))) |