sslotsky

import {
  component$,
  HTMLAttributes,
  QRL,
  Slot,
  useSignal,
  useTask$,
} from "@builder.io/qwik";

interface Movement {

sslotsky

import {
  useResource$,
  useSignal,
  useTask$,
  ResourceReturn,
} from "@builder.io/qwik";
import { MasonryPhoto } from "~/trcp/router";

export type State = "blank" | "blurry" | "done";

sslotsky

import { $, useEnvData, useStore } from "@builder.io/qwik";
import { isBrowser, isServer } from "@builder.io/qwik/build";
import { GraphQLClient, rawRequest } from "graphql-request";
import { parse, serialize } from "cookie";

export const AUTH_TOKEN_KEY = "vendure-auth-token";

export function getHeaders() {
  const headers: HeadersInit = {};

sslotsky

function debounce(fn, interval) {
  let timeout;
  
  return function(...args) {
    clearTimeout(timeout);
    return new Promise(resolve => {
      timeout = setTimeout(() => resolve(fn(...args)), interval);
    });
  }
}

sslotsky

let (>>=) = (m: chainableList('a), f: list('a) => chainableList('b)) => {
  switch(m) {
  | Value(l) => doSomeStuffAndReturn(l |> f)
  | Failure => logThisFailure(m); Failure
  }
};

sslotsky

/* Fluent list operations in ReasonML */
let l = return([1, 2, 3])
  >>= wrap(List.map(n => n * 2))
  >>= wrap(List.filter(n => n mod 2 != 0))
  >>= tail;

sslotsky

let return = x => Value(x);
let wrap = (f, l) => return(l |> f);

sslotsky

let (>>=) = (m: chainableList('a), f: list('a) => chainableList('b)) => switch(m) {
| Value(l) => l|> f
| Failure => Failure
};

sslotsky

let tail = x => switch(x |> List.tl) {
| l => Value(l)
| exception _ => Failure
};

sslotsky

type chainableList('a) =
| Value(list('a))
| Failure;