Merge branch 'master' of github.com:synrc/kvs

.github/workflows/elixir.yml

@@ -17,3 +17,4 @@ jobs:
     - name: Compilation
       run: mix compile
     - name: Tests
+      run: mix test test/test_helper.exs

mix.exs

@@ -4,7 +4,7 @@ defmodule KVS.Mixfile do
   def project do
     [
       app: :kvs,
-      version: "7.1.2",
+      version: "7.1.3",
       description: "KVS Abstract Chain Database",
       package: package(),
       deps: deps()

src/kvs.app.src

@@ -1,6 +1,6 @@
 {application, kvs,
    [{description, "KVS Abstract Chain Database"},
-    {vsn, "7.1.2"},
+    {vsn, "7.1.3"},
     {registered, []},
     {applications, [kernel,stdlib]},
     {mod, { kvs, []}},

src/stores/kvs_mnesia.erl

@@ -27,9 +27,7 @@ initialize() ->
     Res.
 
 index(Tab,Key,Value) ->
-    Table = kvs:table(Tab),
-    Index = string:str(Table#table.fields,[Key]),
-    lists:flatten(many(fun() -> mnesia:index_read(Tab,Value,Index+1) end)).
+    lists:flatten(many(fun() -> mnesia:index_read(Tab,Value,Key) end)).
 
 get(RecordName, Key) -> just_one(fun() -> mnesia:read(RecordName, Key) end).
 put(Records) when is_list(Records) -> void(fun() -> lists:foreach(fun mnesia:write/1, Records) end);