DefinitelyTyped/types/elm/elm-tests.ts

// Based on https://gist.github.com/evancz/8521339

interface Elm {
	Shanghai: ElmModule<ShanghaiPorts>;
}

interface ShanghaiPorts {
	coordinates: PortToElm<Array<number>>;
	incomingShip: PortToElm<Ship>;
	outgoingShip: PortToElm<string>;
	totalCapacity: PortFromElm<number>;
}

interface Ship {
	name: string;
	capacity: number;
}

// initialize the Shanghai component which keeps track of
// shipping data in and out of the Port of Shanghai.
var shanghai = Elm.worker(Elm.Shanghai, {
	coordinates: [0, 0],
	incomingShip: { name: "", capacity: 0 },
	outgoingShip: ""
});

function logger(x: any) { console.log(x) }
shanghai.ports.totalCapacity.subscribe(logger);
// send some ships to the port of Shanghai
shanghai.ports.incomingShip.send({
	name: "Mary Mærsk",
	capacity: 18270
});
shanghai.ports.incomingShip.send({
	name: "Emma Mærsk",
	capacity: 15500
});
// have those ships leave the port of Shanghai
shanghai.ports.outgoingShip.send("Mary Mærsk");
shanghai.ports.outgoingShip.send("Emma Mærsk");