Intial support for R15 line numbers in errors

basho · Mar 31, 2012 · 68065c1 · 68065c1
1 parent efc7b75
commit 68065c1
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/error_logger_lager_h.erl b/src/error_logger_lager_h.erl
@@ -250,6 +250,13 @@ format_mfa({M, F, A}) when is_list(A) ->
     io_lib:format("~w:~w("++FmtStr++")", [M, F | Args]);
 format_mfa({M, F, A}) when is_integer(A) ->
     io_lib:format("~w:~w/~w", [M, F, A]);
+format_mfa({M, F, A, Props}) when is_list(Props) ->
+    case {proplists:get_value(file, Props), proplists:get_value(line, Props)} of
+        {undefined, undefined} ->
+            format_mfa({M, F, A});
+        {File, Line} ->
+            [format_mfa({M, F, A}), io_lib:format(" (~s:~w)", [File, Line])]
+    end;
 format_mfa(Other) ->
     io_lib:format("~w", [Other]).