src/comparator_ffi.erl at main · keii.dev/comparator

keii.dev / comparator

Compare if two types have the same constructor in Gleam

comparator / src / comparator_ffi.erl

at main 295 B view raw

 1-module(comparator_ffi).
 2
 3-export([
 4    is_same_kind/2
 5]).
 6
 7is_same_kind(A, B) when is_tuple(A), is_tuple(B),
 8                       tuple_size(A) >= 1, tuple_size(B) >= 1 ->
 9    element(1, A) =:= element(1, B);
10is_same_kind([A1 | _], [B1 | _]) ->
11    A1 =:= B1;
12is_same_kind(_, _) ->
13    false.