gen/src/gleam@function.erl


1
2
3
4
5
6
7
8
9
10
11
12
13

-module(gleam@function).
-compile(no_auto_import).

-export([compose/2, flip/1, identity/1]).

compose(Fun1, Fun2) ->
    fun(A) -> Fun2(Fun1(A)) end.

flip(Fun) ->
    fun(B, A) -> Fun(A, B) end.

identity(X) ->
    X.