Bugfix: derp, pattern match for UniqueHistoryTrigger_p

This commit is contained in:
Scott Lystig Fritchie 2015-09-14 16:59:58 +09:00
parent a036f119a6
commit 4e11cdd50f

View file

@ -1549,8 +1549,8 @@ react_to_env_B10(Retries, P_newprop, P_latest, LatestUnanimousP, P_current_calc,
UniqueHistories = lists:usort(HistoryList), UniqueHistories = lists:usort(HistoryList),
UniqueHistoryTrigger_p = length(HistoryList) > (?MAX_HISTORY_LENGTH-1) UniqueHistoryTrigger_p = length(HistoryList) > (?MAX_HISTORY_LENGTH-1)
andalso case UniqueHistories of andalso case UniqueHistories of
[ [] ] -> false; [ {[],[]} ] -> false;
[ [MyName] ] -> false; [ {[MyName],[]} ] -> false;
[ _ ] -> true; [ _ ] -> true;
_ -> false _ -> false
end, end,