8.10.0

config/config.exs

@@ -1,6 +1,6 @@
 use Mix.Config
 
 config :kvs,
-  dba: :kvs_rocks,
-  dba_st: :kvs_st,
-  schema: [:kvs, :kvs_stream]
+  dba: :kvs_mnesia,
+  dba_st: :kvs_stream,
+  schema: [:kvs]

mix.exs

@@ -4,7 +4,7 @@ defmodule KVS.Mixfile do
   def project do
     [
       app: :kvs,
-      version: "8.5.2",
+      version: "8.10.0",
       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, "8.5.1"},
+    {vsn, "8.10.0"},
     {registered, []},
     {applications, [kernel,stdlib]},
     {mod, { kvs, []}},

src/stores/kvs_mnesia.erl

@@ -47,7 +47,7 @@ seq([],[]) ->
        {win32,nt} -> {Mega,Sec,Micro} = erlang:timestamp(), integer_to_list((Mega*1000000+Sec)*1000000+Micro);
                 _ -> erlang:integer_to_list(element(2,hd(lists:reverse(erlang:system_info(os_monotonic_time_source)))))
   end;
-seq(RecordName, Incr) -> mnesia:dirty_update_counter({id_seq, RecordName}, Incr).
+seq(RecordName, Incr) -> erlang:integer_to_list(mnesia:dirty_update_counter({id_seq, RecordName}, Incr)).
 many(Fun) -> case mnesia:activity(context(),Fun) of {atomic, [R]} -> R; {aborted, Error} -> {error, Error}; X -> X end.
 void(Fun) -> case mnesia:activity(context(),Fun) of {atomic, ok} -> ok; {aborted, Error} -> {error, Error}; X -> X end.
 info(T) -> try mnesia:table_info(T,all) catch _:_ -> [] end.