版博士V2.0程序
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

299 lines
13 KiB

  1. /**
  2. * The reader monad transformer, which adds a read-only environment to the given monad.
  3. *
  4. * The `of` function ignores the environment, while `chain` passes the inherited environment to both subcomputations.
  5. *
  6. * @since 2.0.0
  7. */
  8. import { Apply, Apply1, Apply2, Apply2C, Apply3, Apply3C, Apply4 } from './Apply'
  9. import { Chain, Chain1, Chain2, Chain2C, Chain3, Chain3C, Chain4 } from './Chain'
  10. import { Functor, Functor1, Functor2, Functor2C, Functor3, Functor3C, Functor4 } from './Functor'
  11. import { HKT, Kind, Kind2, Kind3, Kind4, URIS, URIS2, URIS3, URIS4 } from './HKT'
  12. import { Monad, Monad1, Monad2, Monad2C, Monad3 } from './Monad'
  13. import {
  14. NaturalTransformation22,
  15. NaturalTransformation12,
  16. NaturalTransformation11,
  17. NaturalTransformation,
  18. NaturalTransformation23R,
  19. NaturalTransformation24S
  20. } from './NaturalTransformation'
  21. import { Pointed, Pointed1, Pointed2, Pointed2C, Pointed3, Pointed3C, Pointed4 } from './Pointed'
  22. import { Reader } from './Reader'
  23. /**
  24. * @since 2.10.0
  25. */
  26. export declare function of<F extends URIS4>(
  27. F: Pointed4<F>
  28. ): <A, R, S, FR, FE>(a: A) => Reader<R, Kind4<F, S, FR, FE, A>>
  29. export declare function of<F extends URIS3>(F: Pointed3<F>): <A, R, FR, FE>(a: A) => Reader<R, Kind3<F, FR, FE, A>>
  30. export declare function of<F extends URIS3, FE>(F: Pointed3C<F, FE>): <A, R, FR>(a: A) => Reader<R, Kind3<F, FR, FE, A>>
  31. export declare function of<F extends URIS2>(F: Pointed2<F>): <A, R, FE>(a: A) => Reader<R, Kind2<F, FE, A>>
  32. export declare function of<F extends URIS2, FE>(F: Pointed2C<F, FE>): <A, R>(a: A) => Reader<R, Kind2<F, FE, A>>
  33. export declare function of<F extends URIS>(F: Pointed1<F>): <A, R>(a: A) => Reader<R, Kind<F, A>>
  34. export declare function of<F>(F: Pointed<F>): <A, R>(a: A) => Reader<R, HKT<F, A>>
  35. /**
  36. * @since 2.10.0
  37. */
  38. export declare function map<F extends URIS4>(
  39. F: Functor4<F>
  40. ): <A, B>(f: (a: A) => B) => <R, S, FR, FE>(fa: Reader<R, Kind4<F, S, FR, FE, A>>) => Reader<R, Kind4<F, S, FR, FE, B>>
  41. export declare function map<F extends URIS3>(
  42. F: Functor3<F>
  43. ): <A, B>(f: (a: A) => B) => <R, FR, FE>(fa: Reader<R, Kind3<F, FR, FE, A>>) => Reader<R, Kind3<F, FR, FE, B>>
  44. export declare function map<F extends URIS3, FE>(
  45. F: Functor3C<F, FE>
  46. ): <A, B>(f: (a: A) => B) => <R, FR>(fa: Reader<R, Kind3<F, FR, FE, A>>) => Reader<R, Kind3<F, FR, FE, B>>
  47. export declare function map<F extends URIS2>(
  48. F: Functor2<F>
  49. ): <A, B>(f: (a: A) => B) => <R, FE>(fa: Reader<R, Kind2<F, FE, A>>) => Reader<R, Kind2<F, FE, B>>
  50. export declare function map<F extends URIS2, FE>(
  51. F: Functor2C<F, FE>
  52. ): <A, B>(f: (a: A) => B) => <R>(fa: Reader<R, Kind2<F, FE, A>>) => Reader<R, Kind2<F, FE, B>>
  53. export declare function map<F extends URIS>(
  54. F: Functor1<F>
  55. ): <A, B>(f: (a: A) => B) => <R>(fa: Reader<R, Kind<F, A>>) => Reader<R, Kind<F, B>>
  56. export declare function map<F>(
  57. F: Functor<F>
  58. ): <A, B>(f: (a: A) => B) => <R>(fa: Reader<R, HKT<F, A>>) => Reader<R, HKT<F, B>>
  59. /**
  60. * @since 2.10.0
  61. */
  62. export declare function ap<F extends URIS4>(
  63. F: Apply4<F>
  64. ): <R, S, FR, FE, A>(
  65. fa: Reader<R, Kind4<F, S, FR, FE, A>>
  66. ) => <B>(fab: Reader<R, Kind4<F, S, FR, FE, (a: A) => B>>) => Reader<R, Kind4<F, S, FR, FE, B>>
  67. export declare function ap<F extends URIS3>(
  68. F: Apply3<F>
  69. ): <R, FR, FE, A>(
  70. fa: Reader<R, Kind3<F, FR, FE, A>>
  71. ) => <B>(fab: Reader<R, Kind3<F, FR, FE, (a: A) => B>>) => Reader<R, Kind3<F, FR, FE, B>>
  72. export declare function ap<F extends URIS3, FE>(
  73. F: Apply3C<F, FE>
  74. ): <R, FR, A>(
  75. fa: Reader<R, Kind3<F, FR, FE, A>>
  76. ) => <B>(fab: Reader<R, Kind3<F, FR, FE, (a: A) => B>>) => Reader<R, Kind3<F, FR, FE, B>>
  77. export declare function ap<F extends URIS2>(
  78. F: Apply2<F>
  79. ): <R, FE, A>(
  80. fa: Reader<R, Kind2<F, FE, A>>
  81. ) => <B>(fab: Reader<R, Kind2<F, FE, (a: A) => B>>) => Reader<R, Kind2<F, FE, B>>
  82. export declare function ap<F extends URIS2, FE>(
  83. F: Apply2C<F, FE>
  84. ): <R, A>(
  85. fa: Reader<R, Kind2<F, FE, A>>
  86. ) => <B>(fab: Reader<R, Kind2<F, FE, (a: A) => B>>) => Reader<R, Kind2<F, FE, B>>
  87. export declare function ap<F extends URIS>(
  88. F: Apply1<F>
  89. ): <R, A>(fa: Reader<R, Kind<F, A>>) => <B>(fab: Reader<R, Kind<F, (a: A) => B>>) => Reader<R, Kind<F, B>>
  90. export declare function ap<F>(
  91. F: Apply<F>
  92. ): <R, A>(fa: Reader<R, HKT<F, A>>) => <B>(fab: Reader<R, HKT<F, (a: A) => B>>) => Reader<R, HKT<F, B>>
  93. /**
  94. * @since 2.10.0
  95. */
  96. export declare function chain<M extends URIS4>(
  97. M: Chain4<M>
  98. ): <A, R, S, FR, FE, B>(
  99. f: (a: A) => Reader<R, Kind4<M, S, FR, FE, B>>
  100. ) => (ma: Reader<R, Kind4<M, S, FR, FE, A>>) => Reader<R, Kind4<M, S, FR, FE, B>>
  101. export declare function chain<M extends URIS3>(
  102. M: Chain3<M>
  103. ): <A, R, FR, FE, B>(
  104. f: (a: A) => Reader<R, Kind3<M, FR, FE, B>>
  105. ) => (ma: Reader<R, Kind3<M, FR, FE, A>>) => Reader<R, Kind3<M, FR, FE, B>>
  106. export declare function chain<M extends URIS3, FE>(
  107. M: Chain3C<M, FE>
  108. ): <A, R, FR, B>(
  109. f: (a: A) => Reader<R, Kind3<M, FR, FE, B>>
  110. ) => (ma: Reader<R, Kind3<M, FR, FE, A>>) => Reader<R, Kind3<M, FR, FE, B>>
  111. export declare function chain<M extends URIS2>(
  112. M: Chain2<M>
  113. ): <A, R, FE, B>(
  114. f: (a: A) => Reader<R, Kind2<M, FE, B>>
  115. ) => (ma: Reader<R, Kind2<M, FE, A>>) => Reader<R, Kind2<M, FE, B>>
  116. export declare function chain<M extends URIS2, FE>(
  117. M: Chain2C<M, FE>
  118. ): <A, R, B>(f: (a: A) => Reader<R, Kind2<M, FE, B>>) => (ma: Reader<R, Kind2<M, FE, A>>) => Reader<R, Kind2<M, FE, B>>
  119. export declare function chain<M extends URIS>(
  120. M: Chain1<M>
  121. ): <A, R, B>(f: (a: A) => Reader<R, Kind<M, B>>) => (ma: Reader<R, Kind<M, A>>) => Reader<R, Kind<M, B>>
  122. export declare function chain<M>(
  123. M: Chain<M>
  124. ): <A, R, B>(f: (a: A) => Reader<R, HKT<M, B>>) => (ma: Reader<R, HKT<M, A>>) => Reader<R, HKT<M, B>>
  125. /**
  126. * @since 2.10.0
  127. */
  128. export declare function fromReader<F extends URIS4>(
  129. F: Pointed4<F>
  130. ): <R, A, S, FR, FE>(ma: Reader<R, A>) => Reader<R, Kind4<F, S, FR, FE, A>>
  131. export declare function fromReader<F extends URIS3>(
  132. F: Pointed3<F>
  133. ): <R, A, FR, FE>(ma: Reader<R, A>) => Reader<R, Kind3<F, FR, FE, A>>
  134. export declare function fromReader<F extends URIS3, FE>(
  135. F: Pointed3C<F, FE>
  136. ): <R, A, FR>(ma: Reader<R, A>) => Reader<R, Kind3<F, FR, FE, A>>
  137. export declare function fromReader<F extends URIS2>(
  138. F: Pointed2<F>
  139. ): <R, A, FE>(ma: Reader<R, A>) => Reader<R, Kind2<F, FE, A>>
  140. export declare function fromReader<F extends URIS2, FE>(
  141. F: Pointed2C<F, FE>
  142. ): <R, A>(ma: Reader<R, A>) => Reader<R, Kind2<F, FE, A>>
  143. export declare function fromReader<F extends URIS>(F: Pointed1<F>): <R, A>(ma: Reader<R, A>) => Reader<R, Kind<F, A>>
  144. export declare function fromReader<F>(F: Pointed<F>): <R, A>(ma: Reader<R, A>) => Reader<R, HKT<F, A>>
  145. /**
  146. * @category constructors
  147. * @since 2.11.0
  148. */
  149. export declare function fromNaturalTransformation<F extends URIS2, G extends URIS4>(
  150. nt: NaturalTransformation24S<F, G>
  151. ): <R, S, A, E>(f: (r: R) => Kind2<F, S, A>) => Reader<R, Kind4<G, S, R, E, A>>
  152. export declare function fromNaturalTransformation<F extends URIS2, G extends URIS3>(
  153. nt: NaturalTransformation23R<F, G>
  154. ): <R, A, E>(f: (r: R) => Kind2<F, R, A>) => Reader<R, Kind3<G, R, E, A>>
  155. export declare function fromNaturalTransformation<F extends URIS2, G extends URIS2>(
  156. nt: NaturalTransformation22<F, G>
  157. ): <R, E, A>(f: (r: R) => Kind2<F, E, A>) => Reader<R, Kind2<G, E, A>>
  158. export declare function fromNaturalTransformation<F extends URIS, G extends URIS2>(
  159. nt: NaturalTransformation12<F, G>
  160. ): <R, A, E>(f: (r: R) => Kind<F, A>) => Reader<R, Kind2<G, E, A>>
  161. export declare function fromNaturalTransformation<F extends URIS, G extends URIS>(
  162. nt: NaturalTransformation11<F, G>
  163. ): <R, A>(f: (r: R) => Kind<F, A>) => Reader<R, Kind<G, A>>
  164. export declare function fromNaturalTransformation<F, G>(
  165. nt: NaturalTransformation<F, G>
  166. ): <R, A>(f: (r: R) => HKT<F, A>) => Reader<R, HKT<G, A>>
  167. /**
  168. * @category zone of death
  169. * @since 2.0.0
  170. * @deprecated
  171. */
  172. export interface ReaderT<M, R, A> {
  173. (r: R): HKT<M, A>
  174. }
  175. /**
  176. * @category zone of death
  177. * @since 2.0.0
  178. * @deprecated
  179. */
  180. export interface ReaderM<M> {
  181. readonly map: <R, A, B>(ma: ReaderT<M, R, A>, f: (a: A) => B) => ReaderT<M, R, B>
  182. readonly of: <R, A>(a: A) => ReaderT<M, R, A>
  183. readonly ap: <R, A, B>(mab: ReaderT<M, R, (a: A) => B>, ma: ReaderT<M, R, A>) => ReaderT<M, R, B>
  184. readonly chain: <R, A, B>(ma: ReaderT<M, R, A>, f: (a: A) => ReaderT<M, R, B>) => ReaderT<M, R, B>
  185. readonly ask: <R>() => ReaderT<M, R, R>
  186. readonly asks: <R, A>(f: (r: R) => A) => ReaderT<M, R, A>
  187. readonly local: <R1, A, R2>(ma: ReaderT<M, R1, A>, f: (d: R2) => R1) => ReaderT<M, R2, A>
  188. readonly fromReader: <R, A>(ma: Reader<R, A>) => ReaderT<M, R, A>
  189. readonly fromM: <R, A>(ma: HKT<M, A>) => ReaderT<M, R, A>
  190. }
  191. /**
  192. * @category zone of death
  193. * @since 2.0.0
  194. * @deprecated
  195. */
  196. export interface ReaderT1<M extends URIS, R, A> {
  197. (r: R): Kind<M, A>
  198. }
  199. /**
  200. * @category zone of death
  201. * @since 2.0.0
  202. * @deprecated
  203. */
  204. export interface ReaderM1<M extends URIS> {
  205. readonly map: <R, A, B>(ma: ReaderT1<M, R, A>, f: (a: A) => B) => ReaderT1<M, R, B>
  206. readonly of: <R, A>(a: A) => ReaderT1<M, R, A>
  207. readonly ap: <R, A, B>(mab: ReaderT1<M, R, (a: A) => B>, ma: ReaderT1<M, R, A>) => ReaderT1<M, R, B>
  208. readonly chain: <R, A, B>(ma: ReaderT1<M, R, A>, f: (a: A) => ReaderT1<M, R, B>) => ReaderT1<M, R, B>
  209. readonly ask: <R>() => ReaderT1<M, R, R>
  210. readonly asks: <R, A>(f: (r: R) => A) => ReaderT1<M, R, A>
  211. readonly local: <R1, A, R2>(ma: ReaderT1<M, R1, A>, f: (d: R2) => R1) => ReaderT1<M, R2, A>
  212. readonly fromReader: <R, A>(ma: Reader<R, A>) => ReaderT1<M, R, A>
  213. readonly fromM: <R, A>(ma: Kind<M, A>) => ReaderT1<M, R, A>
  214. }
  215. /**
  216. * @category zone of death
  217. * @since 2.0.0
  218. * @deprecated
  219. */
  220. export interface ReaderT2<M extends URIS2, R, E, A> {
  221. (r: R): Kind2<M, E, A>
  222. }
  223. /**
  224. * @category zone of death
  225. * @since 2.0.0
  226. * @deprecated
  227. */
  228. export interface ReaderM2<M extends URIS2> {
  229. readonly map: <R, E, A, B>(ma: ReaderT2<M, R, E, A>, f: (a: A) => B) => ReaderT2<M, R, E, B>
  230. readonly of: <R, E, A>(a: A) => ReaderT2<M, R, E, A>
  231. readonly ap: <R, E, A, B>(mab: ReaderT2<M, R, E, (a: A) => B>, ma: ReaderT2<M, R, E, A>) => ReaderT2<M, R, E, B>
  232. readonly chain: <R, E, A, B>(ma: ReaderT2<M, R, E, A>, f: (a: A) => ReaderT2<M, R, E, B>) => ReaderT2<M, R, E, B>
  233. readonly ask: <R, E>() => ReaderT2<M, R, E, R>
  234. readonly asks: <R, E, A>(f: (r: R) => A) => ReaderT2<M, R, E, A>
  235. readonly local: <R1, E, A, R2>(ma: ReaderT2<M, R1, E, A>, f: (d: R2) => R1) => ReaderT2<M, R2, E, A>
  236. readonly fromReader: <R, E, A>(ma: Reader<R, A>) => ReaderT2<M, R, E, A>
  237. readonly fromM: <R, E, A>(ma: Kind2<M, E, A>) => ReaderT2<M, R, E, A>
  238. }
  239. /**
  240. * @category zone of death
  241. * @since 2.2.0
  242. * @deprecated
  243. */
  244. export interface ReaderM2C<M extends URIS2, E> {
  245. readonly map: <R, A, B>(ma: ReaderT2<M, R, E, A>, f: (a: A) => B) => ReaderT2<M, R, E, B>
  246. readonly of: <R, A>(a: A) => ReaderT2<M, R, E, A>
  247. readonly ap: <R, A, B>(mab: ReaderT2<M, R, E, (a: A) => B>, ma: ReaderT2<M, R, E, A>) => ReaderT2<M, R, E, B>
  248. readonly chain: <R, A, B>(ma: ReaderT2<M, R, E, A>, f: (a: A) => ReaderT2<M, R, E, B>) => ReaderT2<M, R, E, B>
  249. readonly ask: <R>() => ReaderT2<M, R, E, R>
  250. readonly asks: <R, A>(f: (r: R) => A) => ReaderT2<M, R, E, A>
  251. readonly local: <R1, A, R2>(ma: ReaderT2<M, R1, E, A>, f: (d: R2) => R1) => ReaderT2<M, R2, E, A>
  252. readonly fromReader: <R, A>(ma: Reader<R, A>) => ReaderT2<M, R, E, A>
  253. readonly fromM: <R, A>(ma: Kind2<M, E, A>) => ReaderT2<M, R, E, A>
  254. }
  255. /**
  256. * @category zone of death
  257. * @since 2.0.0
  258. * @deprecated
  259. */
  260. export interface ReaderT3<M extends URIS3, R, U, E, A> {
  261. (r: R): Kind3<M, U, E, A>
  262. }
  263. /**
  264. * @category zone of death
  265. * @since 2.0.0
  266. * @deprecated
  267. */
  268. export interface ReaderM3<M extends URIS3> {
  269. readonly map: <R, U, E, A, B>(ma: ReaderT3<M, R, U, E, A>, f: (a: A) => B) => ReaderT3<M, R, U, E, B>
  270. readonly of: <R, U, E, A>(a: A) => ReaderT3<M, R, U, E, A>
  271. readonly ap: <R, U, E, A, B>(
  272. mab: ReaderT3<M, R, U, E, (a: A) => B>,
  273. ma: ReaderT3<M, R, U, E, A>
  274. ) => ReaderT3<M, R, U, E, B>
  275. readonly chain: <R, U, E, A, B>(
  276. ma: ReaderT3<M, R, U, E, A>,
  277. f: (a: A) => ReaderT3<M, R, U, E, B>
  278. ) => ReaderT3<M, R, U, E, B>
  279. readonly ask: <R, U, E>() => ReaderT3<M, R, U, E, R>
  280. readonly asks: <R, U, E, A>(f: (r: R) => A) => ReaderT3<M, R, U, E, A>
  281. readonly local: <R1, U, E, A, R2>(ma: ReaderT3<M, R1, U, E, A>, f: (d: R2) => R1) => ReaderT3<M, R2, U, E, A>
  282. readonly fromReader: <R, U, E, A>(ma: Reader<R, A>) => ReaderT3<M, R, U, E, A>
  283. readonly fromM: <R, U, E, A>(ma: Kind3<M, U, E, A>) => ReaderT3<M, R, U, E, A>
  284. }
  285. /**
  286. * @category zone of death
  287. * @since 2.0.0
  288. * @deprecated
  289. */
  290. export declare function getReaderM<M extends URIS3>(M: Monad3<M>): ReaderM3<M>
  291. /** @deprecated */
  292. export declare function getReaderM<M extends URIS2>(M: Monad2<M>): ReaderM2<M>
  293. /** @deprecated */
  294. export declare function getReaderM<M extends URIS2, E>(M: Monad2C<M, E>): ReaderM2C<M, E>
  295. /** @deprecated */
  296. export declare function getReaderM<M extends URIS>(M: Monad1<M>): ReaderM1<M>
  297. /** @deprecated */
  298. export declare function getReaderM<M>(M: Monad<M>): ReaderM<M>