From bca6864c181eb8c14a0b8e47afb3dd6206e6ae7c Mon Sep 17 00:00:00 2001
From: Richard Carlsson <richardc@klarna.com>
Date: Tue, 28 Apr 2015 15:22:36 +0200
Subject: Stop xmerl printing to stdout

Replace sloppy calls to io:format() in xmerl to use error_logger or debug
macros instead, as appropriate.
---
 lib/xmerl/src/xmerl.erl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'lib/xmerl/src/xmerl.erl')

diff --git a/lib/xmerl/src/xmerl.erl b/lib/xmerl/src/xmerl.erl
index 01af183eef..d27e101fe2 100644
--- a/lib/xmerl/src/xmerl.erl
+++ b/lib/xmerl/src/xmerl.erl
@@ -40,6 +40,7 @@
 	 callbacks/1]).
 
 -include("xmerl.hrl").
+-include("xmerl_internal.hrl").
 
 
 %% @spec export(Content, Callback) -> ExportedFormat
@@ -273,7 +274,7 @@ tagdef(Tag,Pos,Parents,Args,CBs) ->
 
 callbacks(Module) ->
     Result = check_inheritance(Module, []),
-%%%     io:format("callbacks = ~p~n", [lists:reverse(Result)]),
+%%%     ?dbg("callbacks = ~p~n", [lists:reverse(Result)]),
     lists:reverse(Result).
 
 callbacks([M|Mods], Visited) ->
@@ -288,7 +289,7 @@ callbacks([], Visited) ->
     Visited.
 
 check_inheritance(M, Visited) ->
-%%%     io:format("calling ~p:'#xml-inheritance#'()~n", [M]),
+%%%     ?dbg("calling ~p:'#xml-inheritance#'()~n", [M]),
     case M:'#xml-inheritance#'() of
 	[] ->
 	    [M|Visited];
@@ -313,7 +314,7 @@ apply_cb([M|Ms], F, Df, Args, A, Ms0) ->
         true -> apply(M, F, Args);
         false -> apply_cb(Ms, F, Df, Args, A, Ms0)
     end;
-apply_cb([], Df, Df, Args, A, _Ms0) ->
+apply_cb([], Df, Df, Args, _A, _Ms0) ->
     exit({unknown_tag, {Df, Args}});
 apply_cb([], F, Df, Args, A, Ms0) ->
     apply_cb(Ms0, Df, Df, [F|Args], A+1).
-- 
cgit v1.2.3