From 68065c166b031ac6418362eeab1fa452e789e9d1 Mon Sep 17 00:00:00 2001
From: Andrew Thompson <andrew@hijacked.us>
Date: Wed, 26 Oct 2011 10:50:06 -0400
Subject: [PATCH] Intial support for R15 line numbers in errors

---
 src/error_logger_lager_h.erl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/error_logger_lager_h.erl b/src/error_logger_lager_h.erl
index 3bbe468..0b36326 100644
--- 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]).