From 19cbbf69b278c18fed15e5887cc2bf95de295230 Mon Sep 17 00:00:00 2001
From: Evgeny Khramtsov <ekhramtsov@process-one.net>
Date: Thu, 11 Jul 2019 00:13:39 +0300
Subject: [PATCH] Improve previous commit

---
 src/translate.erl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/translate.erl b/src/translate.erl
index 12d5b6c04..2c277c5da 100644
--- a/src/translate.erl
+++ b/src/translate.erl
@@ -147,10 +147,12 @@ load_file(File) ->
 	{ok, Lines} ->
 	    lists:map(
 	      fun({In, Out}) ->
-		      try
-			  InB = unicode:characters_to_binary(In, utf8),
-			  OutB = unicode:characters_to_binary(Out, utf8),
-			  {{Lang, InB}, OutB}
+		      try {unicode:characters_to_binary(In, utf8),
+			   unicode:characters_to_binary(Out, utf8)} of
+			  {InB, OutB} when is_binary(InB), is_binary(OutB) ->
+			      {{Lang, InB}, OutB};
+			  _ ->
+			      {error, File, bad_encoding}
 		      catch _:badarg ->
 			      {error, File, bad_encoding}
 		      end;