don't generate id if defined

src/kvs_group.erl

@@ -18,7 +18,7 @@ retrieve_groups(User) ->
                [X||X<-Result,X/=undefined] end.
 
 register(#group{} = Register) ->
-  Group = Register#group{id = kvs:uuid(), created = erlang:now(), feeds=[{Feed, kvs_feed:create()} || Feed <- Register#group.feeds]},
+  Group = Register#group{id=case Register#group.id of undefined -> kvs:uuid(); Id -> Id end, created = erlang:now(), feeds=[{Feed, kvs_feed:create()} || Feed <- Register#group.feeds]},
   kvs:put(Group),
   error_logger:info_msg("PUT ~p", [Group]),
   add(Group#group.creator, Group#group.id, member),