better interface for type instance pattern match about erlando

[slepher]

erlando_type error_m

-erlando_type(error_m, [error_m/2]).
-export_type([error_m/2, ok/1, error/1]).
-type error_m(E, A) :: ok(A) | error(E).
-type ok(A) :: ok | {ok, A}.
-type error(E) :: {error, E}.

convert to erl_types

{c,union,
       [{c,atom,[ok],unknown},
        none,none,none,none,none,
        {c,tuple_set,
           [{2,
             [{c,tuple,
                 [{c,atom,[error],unknown},any],
                 {2,{c,atom,[error],unknown}}},
              {c,tuple,
                 [{c,atom,[ok],unknown},any],
                 {2,{c,atom,[ok],unknown}}}]}],
           unknown},
        none,none,none],
       unknown}

generates pattern

type({ok, _}) ->
  error_m; 
type({error, _}) ->
  error_m;
type(ok) ->
  error_m

erlando_type state_t

-erlando_type({state_t, [state_t/3]}).
-export_type([state_t/3]).
-type state_t(S, M, A) :: {state_t, inner_t(S, M, A)}.
-type inner_t(S, M, A) :: fun((S) -> monad:m(M, {A, S})).

converted to erl_types

{c,tuple,
       [{c,atom,[state_t],unknown},
        {c,function,
           [{c,product,[{c,var,'S',unknown}],unknown},any],
           unknown}],
       {2,{c,atom,[state_t],unknown}}}

generates pattern

type({state_t, Args1}) when is_function(Args1) ->
  state_t

[slepher]

move to branch type_by_erlang
request erlang R20 or higher

[slepher]

support R19 by moving dialyzer_utils.erl and erl_types.erl to this project from erlang otp R20