summaryrefslogtreecommitdiff
path: root/src/gm.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/gm.erl')
-rw-r--r--src/gm.erl7
1 files changed, 6 insertions, 1 deletions
diff --git a/src/gm.erl b/src/gm.erl
index 6c09e664..92246cae 100644
--- a/src/gm.erl
+++ b/src/gm.erl
@@ -975,7 +975,12 @@ store_view_member(VMember = #view_member { id = Id }, {Ver, View}) ->
with_view_member(Fun, View, Id) ->
store_view_member(Fun(fetch_view_member(Id, View)), View).
-fetch_view_member(Id, {_Ver, View}) -> ?DICT:fetch(Id, View).
+fetch_view_member(Id, {_Ver, View}) ->
+ case ?DICT:find(Id, View) of
+ {ok, M} -> M;
+ error -> timer:sleep(1000),
+ exit(normal)
+ end.
find_view_member(Id, {_Ver, View}) -> ?DICT:find(Id, View).