QPQ-AG/sophia
10
0
Fork 0
Code Issues 41 Pull Requests 5 Actions Packages Projects Releases 16 Wiki Activity

Fix dialyzer complaints

Browse Source
This commit is contained in:
Ulf Norell 2020-03-02 11:53:27 +01:00
parent e64ac9396a
commit 9487b79f42
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/aeso_ast_infer_types.erl
View File

@ -45,7 +45,7 @@
type :: utype()}). type :: utype()}).
-record(dependent_type_constraint, -record(dependent_type_constraint,
{ named_args_t :: utype() { named_args_t :: named_args_t()
, named_args :: [aeso_syntax:arg_expr()] , named_args :: [aeso_syntax:arg_expr()]
, general_type :: utype() , general_type :: utype()
, specialized_type :: utype() , specialized_type :: utype()
@ -1392,11 +1392,11 @@ infer_expr(Env, {app, Ann, Fun, Args0} = App) ->
When = {infer_app, Fun, NamedArgs1, Args, FunType, ArgTypes}, When = {infer_app, Fun, NamedArgs1, Args, FunType, ArgTypes},
unify(Env, FunType, {fun_t, [], NamedArgsVar, ArgTypes, GeneralResultType}, When), unify(Env, FunType, {fun_t, [], NamedArgsVar, ArgTypes, GeneralResultType}, When),
add_named_argument_constraint( add_named_argument_constraint(
[#dependent_type_constraint{ named_args_t = NamedArgsVar, #dependent_type_constraint{ named_args_t = NamedArgsVar,
named_args = NamedArgs1, named_args = NamedArgs1,
general_type = GeneralResultType, general_type = GeneralResultType,
specialized_type = ResultType, specialized_type = ResultType,
context = {check_return, App} }]), context = {check_return, App} }),
{typed, Ann, {app, Ann, NewFun, NamedArgs1 ++ NewArgs}, dereference(ResultType)} {typed, Ann, {app, Ann, NewFun, NamedArgs1 ++ NewArgs}, dereference(ResultType)}
end; end;
infer_expr(Env, {'if', Attrs, Cond, Then, Else}) -> infer_expr(Env, {'if', Attrs, Cond, Then, Else}) ->