mlms13

type state = string;

type action =
  | SetValue(string);

let component = ReasonReact.reducerComponent("SearchInput");

let valueFromEvent = (evt) =>
  ReactDOMRe.domElementToObj(ReactEventRe.Form.target(evt))##value;

mlms13

/* Importing is just renaming values that are already in scope */
let map = Belt.Array.map;
let reactDom = ReasonReact.createDomElement;
let reactString = ReasonReact.string;

/* You can also alias entire modules */
module RadioButton = Huey.Form.RadioButton;

/* Make the component */
let component = ReasonReact.statelessComponent("RadioButtonGroup");

mlms13

type error('err) =
  | NetworkError
  | ExpectedJson
  | ParseError('err);

/**
 * Map one kind of Belt.Result.Error into another kind of Belt.Result.Error
 * e.g. (('err => 'otherError), Belt.Result.t('a, 'err)) => Belt.Result.t('a, 'otherError)
 */
let mapErr = (fn, r) => switch r {

mlms13

let render = ({ state }) => {
  let { viewport, page } = state;
  let { width, height } = viewport;
  
  let content =
    switch (page) {
    | Overview => <Welcome />
    | ShowUsers(users) => <UserTable users />
    | NewUser(userForm) => <AddUser user=userForm />
    };

mlms13

type state = {products: RemoteData.t(array(Product.t), string)};

type action =
  | FetchProducts
  | SetProducts(RemoteData.t(array(Product.t), string));

let component = ReasonReact.reducerComponent(__MODULE__);
let make = _children => {
  ...component,
  initialState: () => {products: NotAsked},

mlms13

module Git = {
  type commitish = Sha(string);

  type commit = {
    title: string,
    descriptiong: string,
    author: string,
    date: Date.t
  };

mlms13

The Elm Architecture, specialized for games.

Key points:

• Instead of reacting to events, application state is updated on regular intervals
  • The engine collects all input events (keys up/down, mouse movement, button clicks, possibly joysticks, game pads)
  • User of this library specifies how to translate diffs in input events to game actions
• Instead of a single "update" function, there are several specialized functions
  • physics update
• given a current state (which should include things like position and velocity) and a time delta, provide a new state

mlms13

/**
 * t-first and t-last examples when working with `Future.t(Result.t('a, 'e))`
 **/
 
// `Future` and `Result` are both t-last
getJSON("some/url")
|> Future.map(Result.flatMap(decodeUser))
|> Future.map(Result.mapWithDefault(DataFailed, v => ShowData(v)))
|> Future.tap(send);

mlms13

Current behavior

onfocus: send UpdateLocationSuggesion

UpdateLocationSuggesion

• if we already have geolocation: send UpdateLocationSuggesions
• if we don't: send GetLocation

UpdateLocationSuggesions

• if mobile and empty input and LocationSuccess:

mlms13

[@bs.module "react-native-calendario"]
external calendar: ReasonReact.reactClass = "default";

type dateRange = {
  startDate: Js.Date.t,
  endDate: option(Js.Date.t),
};

let dateRangeFromJS = range => {
  startDate: range##startDate,