Reason BST Primer for Blog Post algebraic data types + pattern matching

ReasonBSTADTNPM.re

type worker = {
  name: string,
  age: int,
};

type workStatus =
  | Unemployed(worker)
  | Fulltime(worker)
  | Parttime(worker);

type fetchResults =
  | Error(string)
  | Payload(workStatus);

let getWorker: string => fetchResults = name => Payload(Fulltime({name, age: 17}));

/* fake request */
let findDoug = getWorker("Doug");

let res =
  switch (findDoug) {
  | Payload(Fulltime({name, age})) => name ++ " is a fulltime worker"
  | Payload(Parttime({name, age})) => name ++ " is a partime worker"
  | Payload(Unemployed({name, age})) => name ++ " is sadly unemployed"
  | Error(message) => failwith(message)
  };