-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((URB) -> URC), fun((URC) -> URD)) -> fun((URB) -> URD).
compose(Fun1, Fun2) ->
    fun(A) -> Fun2(Fun1(A)) end.

-spec constant(URE) -> fun((any()) -> URE).
constant(Value) ->
    fun(_) -> Value end.