From 80b0574260924c4ef888fe319274f9303982d45b Mon Sep 17 00:00:00 2001 From: Hans Bolinder Date: Tue, 15 Jan 2019 11:24:57 +0100 Subject: syntax_tools: Fix pretty-printing of type funs See also ERL-815. --- .../test/syntax_tools_SUITE_data/specs_and_funs.erl | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 lib/syntax_tools/test/syntax_tools_SUITE_data/specs_and_funs.erl (limited to 'lib/syntax_tools/test/syntax_tools_SUITE_data') diff --git a/lib/syntax_tools/test/syntax_tools_SUITE_data/specs_and_funs.erl b/lib/syntax_tools/test/syntax_tools_SUITE_data/specs_and_funs.erl new file mode 100644 index 0000000000..8dfeaf5a6b --- /dev/null +++ b/lib/syntax_tools/test/syntax_tools_SUITE_data/specs_and_funs.erl @@ -0,0 +1,18 @@ +-module(specs_and_funs). + +-export([my_apply/3, two/1]). + +%% OTP-15519, ERL-815 + +-spec my_apply(Fun, Arg, fun((A) -> A)) -> Result when + Fun :: fun((Arg) -> Result), + Arg :: any(), + Result :: any(). + +my_apply(Fun, Arg, _) -> + Fun(Arg). + +-spec two(fun((A) -> A)) -> fun((B) -> B). + +two(F) -> + F(fun(X) -> X end). -- cgit v1.2.3