CREATE DOMAIN common."TimeValidFromType" AS TIMESTAMPTZ;

CREATE FUNCTION common."TimeValidFromTypeToJson"(ts common."TimeValidFromType")
RETURNS JSON
AS $$
  SELECT to_json(CASE WHEN NOT isfinite(ts)
                      THEN NULL
                      ELSE ts
                 END)
$$
LANGUAGE SQL IMMUTABLE;

CREATE CAST (common."TimeValidFromType" AS JSON) WITH FUNCTION common."TimeValidFromTypeToJson"(common."TimeValidFromType") AS IMPLICIT;

CREATE FUNCTION common."JsonToTimeValidFromType"(js JSON)
RETURNS common."TimeValidFromType"
AS $$
  SELECT (CASE WHEN js IS NULL
               THEN '-infinity'
               ELSE js::TEXT
          END)::common."TimeValidFromType"
$$
LANGUAGE SQL IMMUTABLE;

CREATE CAST (JSON AS common."TimeValidFromType") WITH FUNCTION common."JsonToTimeValidFromType"(JSON) AS IMPLICIT;

CREATE FUNCTION common."TextToTimeValidFromType"(tx TEXT)
RETURNS common."TimeValidFromType"
AS $$
  -- Convert an empty string as well since that's what the Supabase.Postgrest client
  -- sends when it creates a primary key filter from a null value.
  -- Convert the string 'null' as well since "is.null" will not work as a PostgREST
  -- filter and so we have to use "eq.null" instead.
  SELECT (CASE WHEN tx IS NULL OR tx = '' OR tx = 'null'
               THEN '-infinity'
               ELSE tx
          END)::common."TimeValidFromType"
$$
LANGUAGE SQL IMMUTABLE;

CREATE CAST (TEXT AS common."TimeValidFromType") WITH FUNCTION common."TextToTimeValidFromType"(TEXT) AS IMPLICIT;