monad ReaderRemoteData

ReaderRemoteData.ts

import { Reader } from 'fp-ts/lib/Reader'
import { Monad3 } from 'fp-ts/lib/Monad'
import * as RD from "@devexperts/remote-data-ts"
import { getReaderM } from 'fp-ts/lib/ReaderT'
import { pipeable } from "fp-ts/lib/pipeable"

declare module 'fp-ts/lib/HKT' {
	interface URItoKind3<R, E, A> {
		ReaderRemoteData: ReaderRemoteData<R, E, A>
	}
}

export interface ReaderRemoteData<R, E, A> extends Reader<R, RD.RemoteData<E, A>> { }

const { map, ap, of, chain } = getReaderM(RD.remoteData)

const monadReaderRemoteData: Monad3<'ReaderRemoteData'> = {
	URI: 'ReaderRemoteData',
	map,
	ap,
	of,
	chain
}

export const RRD = pipeable(monadReaderRemoteData)