fix: add support for context sensitive readers

Signed-off-by: Dr. Carsten Leue <carsten.leue@de.ibm.com>

readerio/reader.go

@@ -0,0 +1,62 @@
+package readerio
+
+import (
+	IO "github.com/ibm/fp-go/io"
+	R "github.com/ibm/fp-go/reader"
+	G "github.com/ibm/fp-go/readerio/generic"
+)
+
+type ReaderIO[E, A any] R.Reader[E, IO.IO[A]]
+
+func FromIO[E, A any](t IO.IO[A]) ReaderIO[E, A] {
+	return G.FromIO[ReaderIO[E, A]](t)
+}
+
+func MonadMap[E, A, B any](fa ReaderIO[E, A], f func(A) B) ReaderIO[E, B] {
+	return G.MonadMap[ReaderIO[E, A], ReaderIO[E, B]](fa, f)
+}
+
+func Map[E, A, B any](f func(A) B) func(ReaderIO[E, A]) ReaderIO[E, B] {
+	return G.Map[ReaderIO[E, A], ReaderIO[E, B]](f)
+}
+
+func MonadChain[E, A, B any](ma ReaderIO[E, A], f func(A) ReaderIO[E, B]) ReaderIO[E, B] {
+	return G.MonadChain(ma, f)
+}
+
+func Chain[E, A, B any](f func(A) ReaderIO[E, B]) func(ReaderIO[E, A]) ReaderIO[E, B] {
+	return G.Chain[ReaderIO[E, A]](f)
+}
+
+func Of[E, A any](a A) ReaderIO[E, A] {
+	return G.Of[ReaderIO[E, A]](a)
+}
+
+func MonadAp[B, E, A any](fab ReaderIO[E, func(A) B], fa ReaderIO[E, A]) ReaderIO[E, B] {
+	return G.MonadAp[ReaderIO[E, A], ReaderIO[E, B]](fab, fa)
+}
+
+func Ap[B, E, A any](fa ReaderIO[E, A]) func(ReaderIO[E, func(A) B]) ReaderIO[E, B] {
+	return G.Ap[ReaderIO[E, A], ReaderIO[E, B], ReaderIO[E, func(A) B]](fa)
+}
+
+func Ask[E any]() ReaderIO[E, E] {
+	return G.Ask[ReaderIO[E, E]]()
+}
+
+func Asks[E, A any](r R.Reader[E, A]) ReaderIO[E, A] {
+	return G.Asks[R.Reader[E, A], ReaderIO[E, A]](r)
+}
+
+func MonadChainIOK[E, A, B any](ma ReaderIO[E, A], f func(A) IO.IO[B]) ReaderIO[E, B] {
+	return G.MonadChainIOK[ReaderIO[E, A], ReaderIO[E, B]](ma, f)
+}
+
+func ChainIOK[E, A, B any](f func(A) IO.IO[B]) func(ReaderIO[E, A]) ReaderIO[E, B] {
+	return G.ChainIOK[ReaderIO[E, A], ReaderIO[E, B]](f)
+}
+
+// Defer creates an IO by creating a brand new IO via a generator function, each time
+func Defer[E, A any](gen func() ReaderIO[E, A]) ReaderIO[E, A] {
+	return G.Defer[ReaderIO[E, A]](gen)
+}