Don't crash in index.erl when index is invalid

1 files changed, 5 insertions, 6 deletions

diff --git a/src/index.erl b/src/index.erl
index fe47f59..5fe1dd6 100644
--- a/src/index.erl
+++ b/src/index.erl
@@ -95,8 +95,7 @@ add_internal(File, Index, Entry) when is_binary(Entry), size(Entry) == ?ENTRYSIZ
                           Index * ?ENTRYSIZEINFILE < Position ->
                    read;
                _ ->
-                   util:exit_with_error(invalid, writefile,
-                                        "Index not valid")
+                   {error, invalidindex}
            end,
     EntryText = hex:bin_to_hexstr(Entry) ++ "\n",
     case Mode of
@@ -112,10 +111,10 @@ add_internal(File, Index, Entry) when is_binary(Entry), size(Entry) == ?ENTRYSIZ
                 EntryText ->
                     ok;
                 _ ->
-                    util:exit_with_error(invalid, writefile,
-                                         "Written content not the" ++
-                                             " same as old content")
-            end
+                    {error, invalidcontent}
+            end;
+        {error, Error} ->
+            {error, Error}
     end.