Merge pull request #478 from travelping/fix/improper_lists

replace list comprehension with recursive invokation in pr/2

src/lager.erl

@@ -577,8 +577,8 @@ pr(Record, Module, Options) when is_tuple(Record), is_atom(element(1, Record)),
         error:undef ->
             Record
     end;
-pr(List, Module, Options) when is_list(List), is_list(Options) ->
-    [pr(Element, Module, Options) || Element <- List];
+pr([Head|Tail], Module, Options) when is_list(Options) ->
+    [pr(Head, Module, Options)|pr(Tail, Module, Options)];
 pr(Record, _, _) ->
     Record.
 

test/pr_composite_test.erl

@@ -38,3 +38,10 @@ list_of_records_test() ->
     ?assertEqual([{'$lager_record', a, [{field1, 1},{field2, a2}]},
                   {'$lager_record', a, [{field1, 2},{field2, a2}]}],
                  Pr_As).
+
+improper_list_test() ->
+    A = #a{field1 = [1|2], field2 = a2},
+    Pr_A = lager:pr(A, ?MODULE),
+    ?assertEqual({'$lager_record',a,
+                  [{field1,[1|2]},{field2,a2}]},
+                 Pr_A).