Current section

Files

Jump to
glitch src glitch@extended@function_ext.erl
Raw

src/glitch@extended@function_ext.erl

-module(glitch@extended@function_ext).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
-export([compose/2, constant/1]).
-spec compose(fun((UQY) -> UQZ), fun((UQZ) -> URA)) -> fun((UQY) -> URA).
compose(Fun1, Fun2) ->
fun(A) -> Fun2(Fun1(A)) end.
-spec constant(URB) -> fun((any()) -> URB).
constant(Value) ->
fun(_) -> Value end.