X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=src%2Fhope_fun.erl;h=c2443cee8b7efb721098b69a9dd6268eb3bfac68;hb=a3173cf2c4cd3aa3b7da033cac6b2d9e9ccd492a;hp=5ee6730499fa840d7a88ab427d4a82126d070673;hpb=e033aadea66cc7f68e3a66cde23a2edfe4c4e9e6;p=hope.git diff --git a/src/hope_fun.erl b/src/hope_fun.erl index 5ee6730..c2443ce 100644 --- a/src/hope_fun.erl +++ b/src/hope_fun.erl @@ -13,7 +13,7 @@ id(X) -> -spec curry(fun()) -> fun(). curry(F) -> - {value, {arity, Arity}} = lists:keysearch(arity, 1, erlang:fun_info(F)), + {arity, Arity} = erlang:fun_info(F, arity), curry(F, [], Arity). -spec curry(fun(), list(), integer()) ->