Merge pull request #20 from cystbear/fix-compile-warnings

Fix compile warnings

src/kvs.erl

@@ -67,7 +67,7 @@ create(ContainerName, Id, Driver) ->
     ok = kvs:put(Top3, Driver),
     Id.
 
-ensure_link(Record, #kvs{mod=Store}=Driver) ->
+ensure_link(Record, #kvs{mod=_Store}=Driver) ->
 
     Id    = element(2,Record),
     Type  = table_type(element(1,Record)),
@@ -123,13 +123,13 @@ ensure_link(Record, #kvs{mod=Store}=Driver) ->
                     {ok, R3}
             end.
 
-link(Record,#kvs{mod=Store}=Driver) ->
+link(Record,#kvs{mod=_Store}=Driver) ->
     Id = element(#iterator.id, Record),
     case kvs:get(element(1,Record), Id, Driver) of
               {ok, Exists} -> ensure_link(Exists, Driver);
         {error, not_found} -> {error, not_found} end.
 
-add(Record, #kvs{mod=Store}=Driver) when is_tuple(Record) ->
+add(Record, #kvs{mod=_Store}=Driver) when is_tuple(Record) ->
     Id = element(#iterator.id, Record),
     case kvs:get(element(1,Record), Id, Driver) of
                 {error, _} -> ensure_link(Record, Driver);
@@ -173,8 +173,8 @@ do_remove(E,#kvs{mod=Mod}=Driver) ->
 traversal(Table, Start, Count, Direction, Driver)->
     fold(fun(A,Acc) -> [A|Acc] end,[],Table,Start,Count,Direction,Driver).
 
-fold(Fun,Acc,_,undefined,_,_,Driver) -> Acc;
-fold(Fun,Acc,_,_,0,_,Driver) -> Acc;
+fold(_Fun,Acc,_,undefined,_,_,_Driver) -> Acc;
+fold(_Fun,Acc,_,_,0,_,_Driver) -> Acc;
 fold(Fun,Acc,Table,Start,Count,Direction,Driver) ->
     RecordType = table_type(Table),
     case kvs:get(RecordType, Start, Driver) of

src/store/store_fs.erl

@@ -10,8 +10,8 @@ stop()     -> ok.
 destroy()  -> ok.
 version()  -> {version,"KVS FS"}.
 dir()      -> [ {table,F} || F <- filelib:wildcard("data/*"), filelib:is_dir(F) ].
-join(Node) -> filelib:ensure_dir("data/"). % should be rsync or smth
-change_storage(Table,Type) -> ok.
+join(_Node) -> filelib:ensure_dir("data/"). % should be rsync or smth
+change_storage(_Table,_Type) -> ok.
 
 initialize() ->
     kvs:info(?MODULE,"fs init.~n",[]),
@@ -19,9 +19,9 @@ initialize() ->
     [ kvs:init(store_fs,Module) || Module <- kvs:modules() ],
     mnesia:wait_for_tables([ T#table.name || T <- kvs:tables()],infinity).
 
-index(Tab,Key,Value) -> ok.
+index(_Tab,_Key,_Value) -> ok.
 get(TableName, Key) ->
-    HashKey = encode(base64:encode(crypto:sha(term_to_binary(Key)))),
+    HashKey = encode(base64:encode(crypto:hash(sha, term_to_binary(Key)))),
     Dir = lists:concat(["data/",TableName,"/"]),
     case file:read_file(lists:concat([Dir,HashKey])) of
          {ok,Binary} -> {ok,binary_to_term(Binary,[safe])};
@@ -30,22 +30,22 @@ get(TableName, Key) ->
 put(Records) when is_list(Records) -> lists:map(fun(Record) -> put(Record) end, Records);
 put(Record) ->
     TableName = element(1,Record),
-    HashKey = encode(base64:encode(crypto:sha(term_to_binary(element(2,Record))))),
+    HashKey = encode(base64:encode(crypto:hash(sha, term_to_binary(element(2,Record))))),
     BinaryValue = term_to_binary(Record),
     Dir = lists:concat(["data/",TableName,"/"]),
     filelib:ensure_dir(Dir),
     File = lists:concat([Dir,HashKey]),
     file:write_file(File,BinaryValue,[write,raw,binary,sync]).
 
-delete(Tab, Key) -> ok.
+delete(_Tab, _Key) -> ok.
 count(RecordName) -> length(filelib:fold_files(lists:concat(["data/",RecordName]), "",true, fun(A,Acc)-> [A|Acc] end, [])).
 all(R) -> lists:flatten([ begin case file:read_file(File) of
                         {ok,Binary} -> binary_to_term(Binary,[safe]);
-                        {error,Reason} -> [] end end || File <-
+                        {error,_Reason} -> [] end end || File <-
       filelib:fold_files(lists:concat(["data/",R]), "",true, fun(A,Acc)-> [A|Acc] end, []) ]).
 next_id(RecordName, Incr) -> store_mnesia:next_id(RecordName, Incr).
-create_table(Name,Options) -> filelib:ensure_dir(lists:concat(["data/",Name,"/"])).
-add_table_index(Record, Field) -> ok.
+create_table(Name,_Options) -> filelib:ensure_dir(lists:concat(["data/",Name,"/"])).
+add_table_index(_Record, _Field) -> ok.
 
 % URL ENCODE