gaku-sei

module Form = {
  @react.component
  let make = () => {
    let {clearErrors, control, formState: {errors}, handleSubmit} = Hooks.Form.use(
      ~option=Hooks.Form.option(
        ~mode=#onBlur,
        ~shouldFocusError=false,
        ~defaultValues=Js.Dict.fromArray([(Values.title, Value.make(""))]),
        (),
      ),

gaku-sei

module Node = {
  type t;
};

module HyperScript = {
  type t;

  [@module "solid-js/h"]
  external make: (string, 'props, array(t)) => t = "default";

gaku-sei

type r = [ | `read];

type w = [ | `write];

type rw = [ r | w];

type t('a, 'rights) constraint 'rights = [< rw];

type getArg = {get: 'a 'rights. t('a, [> r] as 'rights) => 'a};

gaku-sei

/* Comes from BsAbstract and Relude */
module type EQ = {type t; let eq: (t, t) => bool;};

type ordering = [ | `less_than | `equal_to | `greater_than];

module type ORD = {include EQ; let compare: (t, t) => ordering;};

module type BOUNDED = {include ORD; let top: t; let bottom: t;};

module type SHOW = {type t; let show: t => string;};

gaku-sei

Number to Ordinal

Finish the function numberToOrdinal, which should take a number and return it as a string with the correct ordinal indicator suffix (in English). That is:

• numberToOrdinal(1) ==> '1st'
• numberToOrdinal(2) ==> '2nd'
• numberToOrdinal(3) ==> '3rd'
• numberToOrdinal(4) ==> '4th'

Fluid Calculator

gaku-sei

type t('a) = {
  error: option(UrqlCombinedError.t),
  loading: bool,
  response: AsyncResult.t('a, UrqlCombinedError.t),
};

// request here will be the first value returned by the current hooks
let use = (~request) => {
  let (pristine, setPristine) = React.useState(() => true);

gaku-sei

type t('a) = {
  error: option(UrqlCombinedError.t),
  loading: bool,
  response: AsyncResult.t('a, UrqlCombinedError.t),
};

let use = (~definition) => {
  let (pristine, setPristine) = React.useState(() => true);

  let (hasLoaded, setHasLoaded) = React.useState(() => false);

gaku-sei

// Interfaces

module type FUNCTOR = {
  type t('a);

  let map: ('a => 'b, t('a)) => t('b);
};

module type ALT = {
  include FUNCTOR;

gaku-sei

open! IndexedBurger;

let burgerSpec: ixBurger(ready, topBunOn, burgerSpec) =
  Infix.(
    getEmptyPlate
    >>=: placeEmptyBun
    >>=: addKetchup
    >>=: addPatty
    >>=: addCheese
    >>=: addTopBun

gaku-sei

// Rough implementation of https://package.elm-lang.org/packages/elm/core/latest/Platform-Cmd#Cmd
module Cmd = {
  [@bs.deriving accessors]
  type t('msg) =
    | Cmd('msg);

  let make: 'msg => t('msg) = cmd;
};

// Simple https://package.elm-lang.org/packages/elm/core/latest/Task