handle hash literals when permissive_address_literals

2019-03-01 11:36:28 +01:00
parent edc37bcf1b
commit 3efde2a2a1
2 changed files with 2 additions and 0 deletions
@@ -1655,6 +1655,7 @@ unify1(_Env, A, B, When) ->
                Kind = fun({qcon, _, _})       -> con;
                          ({con, _, _})        -> con;
                          ({id, _, "address"}) -> addr;
+                          ({id, _, "hash"})    -> hash;
                          ({app_t, _, {id, _, "oracle"}, _})       -> oracle;
                          ({app_t, _, {id, _, "oracle_query"}, _}) -> query;
                          (_)                  -> other end,