mirror of
https://github.com/IBM/fp-go.git
synced 2025-06-23 00:27:49 +02:00
12 lines
330 B
Go
12 lines
330 B
Go
|
package functor
|
||
|
|
|
||
|
|
import (
|
||
|
|
F "github.com/ibm/fp-go/function"
|
||
|
|
)
|
||
|
|
|
||
|
|
// HKTFGA = HKT[F, HKT[G, A]]
|
||
|
|
// HKTFGB = HKT[F, HKT[G, B]]
|
||
|
|
func MonadMap[A, B, HKTGA, HKTGB, HKTFGA, HKTFGB any](fmap func(HKTFGA, func(HKTGA) HKTGB) HKTFGB, gmap func(HKTGA, func(A) B) HKTGB, fa HKTFGA, f func(A) B) HKTFGB {
|
||
|
|
return fmap(fa, F.Bind2nd(gmap, f))
|
||
|
|
}
|