t-first and t-last approach when working with nested data structures in Reason

TFirstTLast.re

/**
 * t-first and t-last examples when working with `Future.t(Result.t('a, 'e))`
 **/
 
// `Future` and `Result` are both t-last
getJSON("some/url")
|> Future.map(Result.flatMap(decodeUser))
|> Future.map(Result.mapWithDefault(DataFailed, v => ShowData(v)))
|> Future.tap(send);

// t-first, as the API currently exists, with extra arguments named
// only so they can be passed into other functions
getJSON("some/url")
->Future.map(res => Result.flatMap(res, decodeUser))
->Future.map(res => Result.mapWithDefault(res, DataFailed, v => ShowData(v)))
->Future.tap(send);