Merge pull request #9 from rabbitmq/support-args-in-stacktraces

Support argument lists in stacktraces
rabbitmq · Mar 30, 2023 · 47add10 · 47add10
2 parents d91d8d5 + 53e951d
commit 47add10
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/src/horus.erl b/src/horus.erl
@@ -1066,8 +1066,17 @@ reconstruct_original_stracktrace(
   Stacktrace) ->
     lists:map(
       fun
+          ({Module, Name, Args, Extra})
+            when GeneratedModuleName =:= Module andalso is_list(Args) ->
+              Arity = length(Args),
+              {RealModule, RealName, RealArity} =
+              maps:get({Name, Arity}, FunNameMapping),
+
+              RealArgs = lists:sublist(Args, RealArity),
+              ?assertEqual(RealArity, length(RealArgs)),
+              {RealModule, RealName, RealArgs, Extra};
           ({Module, Name, Arity, Extra})
-            when GeneratedModuleName =:= Module ->
+            when GeneratedModuleName =:= Module andalso is_integer(Arity) ->
               {RealModule, RealName, RealArity} =
               maps:get({Name, Arity}, FunNameMapping),