diff options
Diffstat (limited to 'stdlib/source/lux/abstract')
| -rw-r--r-- | stdlib/source/lux/abstract/functor.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux/abstract/functor.lux b/stdlib/source/lux/abstract/functor.lux index 1ade0a45b..a259673d4 100644 --- a/stdlib/source/lux/abstract/functor.lux +++ b/stdlib/source/lux/abstract/functor.lux @@ -18,12 +18,12 @@ (type: #export (Then f g) (All [a] (f (g a)))) -(def: #export (compose f-functor g-functor) +(def: #export (compose (^open "f@.") (^open "g@.")) {#.doc "Functor composition."} (All [F G] (-> (Functor F) (Functor G) (Functor (..Then F G)))) (structure (def: (map f fga) - (:: f-functor map (:: g-functor map f) fga)))) + (f@map (g@map f) fga)))) (signature: #export (Contravariant f) (: (All [a b] |