Merge pull request #72 from aeternity/PT-166330348-check-map-keys-fate

Pt 166330348 check map keys fate
2019-08-26 08:37:52 +02:00
parent 6efa4a0cb8 59b7b786ac
commit 1d5e5be252
4 changed files with 62 additions and 12 deletions
@@ -487,5 +487,11 @@ sort(KVList) ->

 valid_key_type(K) when ?IS_FATE_MAP(K) ->
    error({map_as_key_in_map, K});
+valid_key_type(?FATE_STORE_MAP(_, _) = K) ->
+    error({map_as_key_in_map, K});
+valid_key_type(K) when is_list(K) ->
+    lists:all(fun(E) -> valid_key_type(E) end, K);
+valid_key_type(K) when is_tuple(K) ->
+    lists:all(fun(E) -> valid_key_type(E) end, tuple_to_list(K));
 valid_key_type(_K) ->
    true.