1 2 3 4 5 6 7 8 9 10 11 12
-module(fun_app_args). -export([t/1]). -type ft() :: fun((a, []) -> any()). -record(r, { h = c :: c | ft() }). t(#r{h = H}) -> fun(_) -> (H)(b, []) end.