Browse Source

io_lib:format/2 does not return a flat string, lists:concat produces a more pretty-printable result.

Christian Sunesson 16 years ago
parent
commit
acff6d295f
1 changed files with 3 additions and 3 deletions
  1. 3 3
      src/erlydtl/erlydtl_scanner.erl

+ 3 - 3
src/erlydtl/erlydtl_scanner.erl

@@ -197,7 +197,7 @@ scan([H | T], Scanned, {Row, Column}, {in_code, Closer}) ->
         digit ->
         digit ->
             scan(T, [{number_literal, {Row, Column}, [H]} | Scanned], {Row, Column + 1}, {in_number, Closer});
             scan(T, [{number_literal, {Row, Column}, [H]} | Scanned], {Row, Column + 1}, {in_number, Closer});
         _ ->
         _ ->
-            {error, io_lib:format("Illegal character line ~p column ~p", [Row, Column])}
+            {error, lists:concat(["Illegal character line ", Row, " column ", Column])}
     end;
     end;
 
 
 scan([H | T], Scanned, {Row, Column}, {in_number, Closer}) ->
 scan([H | T], Scanned, {Row, Column}, {in_number, Closer}) ->
@@ -205,7 +205,7 @@ scan([H | T], Scanned, {Row, Column}, {in_number, Closer}) ->
         digit ->
         digit ->
             scan(T, append_char(Scanned, H), {Row, Column + 1}, {in_number, Closer});
             scan(T, append_char(Scanned, H), {Row, Column + 1}, {in_number, Closer});
         _ ->
         _ ->
-            {error, io_lib:format("Illegal character line ~p column ~p", [Row, Column])}
+            {error, lists:concat(["Illegal character line ", Row, " column ", Column])}
     end;
     end;
 
 
 scan([H | T], Scanned, {Row, Column}, {in_identifier, Closer}) ->
 scan([H | T], Scanned, {Row, Column}, {in_identifier, Closer}) ->
@@ -215,7 +215,7 @@ scan([H | T], Scanned, {Row, Column}, {in_identifier, Closer}) ->
         digit ->
         digit ->
             scan(T, append_char(Scanned, H), {Row, Column + 1}, {in_identifier, Closer});
             scan(T, append_char(Scanned, H), {Row, Column + 1}, {in_identifier, Closer});
         _ ->
         _ ->
-            {error, io_lib:format("Illegal character line ~p column ~p", [Row, Column])}
+            {error, lists:concat(["Illegal character line ", Row, " column ", Column])}
     end.
     end.
 
 
 % internal functions
 % internal functions