1234567891011121314151617181920212223242526272829
import { assert, assertEquals } from "https://deno.land/std@0.79.0/testing/asserts.ts";import { $$tag, $$type, $$value } from "./Symbols.js";
export const assertIsEquivalent = (containerA, containerB) => assert(isEquivalent(containerA, containerB));
// isEquivalent :: Setoid a|a -> Setoid b|b -> Booleanexport const isEquivalent = (containerA, containerB) => {  // When the container are Setoids...  if (Reflect.getPrototypeOf(containerA).hasOwnProperty("equals")) return containerA.equals(containerB);  else if (    Reflect.has(containerA, $$value) && Reflect.has(containerB, $$value)    && (      containerA[$$tag] === containerB[$$tag]      || containerA[$$type] === containerB[$$type]    )  ) {    return !assertEquals(containerA[$$value], containerB[$$value]);  } else if (    Reflect.has(containerA, $$tag) && Reflect.has(containerB, $$tag)    || Reflect.has(containerA, $$type) && Reflect.has(containerB, $$type)  ) {
    return (      containerA[$$tag] === containerB[$$tag]      || containerA[$$type] === containerB[$$type]    );  } else return false;};