UNPKG

@dillonkearns/elm-graphql

Version:

<img src="https://cdn.jsdelivr.net/gh/martimatix/logo-graphqelm/logo.svg" alt="dillonearns/elm-graphql logo" width="40%" align="right">

11 lines (8 loc) 260 B
// @flow import { HKT } from './HKT' export interface Functor<F> { map<A, B>(f: (a: A) => B, fa: HKT<F, A>): HKT<F, B> } export function lift<F, A, B>(functor: Functor<F>, f: (a: A) => B): (fa: HKT<F, A>) => HKT<F, B> { return fa => functor.map(f, fa) }