extend KVS schema with mnesia type

include/metainfo.hrl

@@ -2,7 +2,7 @@
 -define(METAINFO_HRL, true).
 
 -record(schema, {name,tables=[]}).
--record(table,  {name,container=feed,fields=[],keys=[],copy_type=application:get_env(kvs,mnesia_media,disc_copies),columns,order_by}).
+-record(table,  {name,container=feed,type=set,fields=[],keys=[],copy_type=application:get_env(kvs,mnesia_media,disc_copies),columns,order_by}).
 -record(column, {name,type,key=false,ro=false,transform}).
 -record(query,  {body,types=[],values=[],next_ph_num = 1}).
 

src/kvs.erl

@@ -54,7 +54,7 @@ forbid(____)           -> 5.
 
 init(Backend, Module) ->
     [ begin
-        Backend:create_table(T#table.name, [{attributes,T#table.fields},{T#table.copy_type, [node()]}]),
+        Backend:create_table(T#table.name, [{attributes,T#table.fields},{T#table.copy_type, [node()]},{type,T#table.type}]),
         [ Backend:add_table_index(T#table.name, Key) || Key <- T#table.keys ],
         T
     end || T <- (Module:metainfo())#schema.tables ].