elliottkember

EventEmitter = (require?("./EventEmitter") || Framer).EventEmitter

class AppStateMachine extends EventEmitter

	constructor: ->
		@states = []

	# Start the state machine with the document's hash, or the given route
	start: (name) ->
		@go if document.location.hash then document.location.hash[1..-1] else name

jemgold

# An example with classes building components.
# This stuff is a little fiddly to get set up,
# but once it's working it's great - you can just
# add new instances of the components, and each
# components holds references to all of its
# children. You can set defaults & states for each
# component separately.
#
# (try clicking on the post author, and then on each
# of the comments on a post)

jordwalke

open ReactDOM

module MyComponent = struct
  (* Component Properties *)
  type props = {count: int}

  (* Hey, state can be any type! *)
  type state = string

  (* Initializer *)

danharper

var gulp = require('gulp');
var sourcemaps = require('gulp-sourcemaps');
var source = require('vinyl-source-stream');
var buffer = require('vinyl-buffer');
var browserify = require('browserify');
var watchify = require('watchify');
var babel = require('babelify');

function compile(watch) {
  var bundler = watchify(browserify('./src/index.js', { debug: true }).transform(babel));

busypeoples

Phantom types in ReasonML

Introduction

"A phantom type is a parametrised type whose parameters do not all appear on the right-hand side of its definition..." Haskell Wiki, PhantomType

The following write-up is intended as an introduction into using phantom types in ReasonML.

Taking a look at the above definition from the Haskell wiki, it states that phantom types are parametrised types where not all parameters appear on the right-hand side. Let's try to see if we can implement a similar example as in said wiki.

derBingle

function recp () {
    if [ $# -ge 1 -a -f "$1" ]
    then
        refmt --parse ml --print re "$@" | pbcopy;
    else
        pbpaste | refmt --parse ml --print re | pbcopy
    fi
}

lilactown

/**
 * Making promises
 */
let okPromise = Js.Promise.make((~resolve, ~reject as _) => [@bs] resolve("ok"));

/* Simpler promise creation for static values */
Js.Promise.resolve("easy");

Js.Promise.reject(Invalid_argument("too easy"));

Zerim

/* `action` and `state` types must be defined before the `let component` statement for type inference to work */
type action =
  | UpdateEmail string
  | UpdatePassword string;

type state = {
  email: string,
  password: string
};

busypeoples

type field =
  | O
  | X;

type position = (field, field, field, field);

type unit = (position, position, position, position);

type units = list(unit);

jsiebern

module Store = {
  type action =
    | Increase
    | Decrease
    | SetUsername(string);
  type state = {
    count: int,
    username: string,
  };
  type storeBag = {