Dmitry Tabakerov tabakerov

Clarity

Just dump everything from mind

Run: ts2fable node_modules/@types/p5/index.d.ts src/Fable.Import.p5.fs -e p5

Result: /.../src/Fable.Import.p5.fs(95,17): (95,24) error FSHARP: The namespace or module '__index' is not defined. (code 39)

	version: "3"
	services:
	db:
	image: mysql:5.7
	container_name: "products_db_dev"
	ports:
	- "3396:3306"
	environment:
	- MYSQL_ROOT_PASSWORD=root
	- MYSQL_DATABASE=products_db_dev

	static class TaskExtensions
	{
	static Task<T> Return<T>(T task) => Task.FromResult(task);

	static async Task<R> Bind<T, R>(this Task<T> task, Func<T, Task<R>> cont) =>
	await cont(await task.ConfigureAwait(false)).ConfigureAwait(false);

	static async Task<R> Map<T, R>(this Task<T> task, Func<T, R> map) =>
	map(await task.ConfigureAwait(false));

	// Learn more about F# at http://fsharp.org

	open System
	open MongoDB.Driver
	open System.Security.Authentication

	type PostId = PostId of string
	type CommentId = CommentId of string

	OpenTypeExtension newExtension = new OpenTypeExtension();
	newExtension.ExtensionName = "com.contoso.trackingKey";

	newExtension.AdditionalData = new Dictionary<string, object>();
	newExtension.AdditionalData.Add("trackingKeyMajor", "ABC");
	newExtension.AdditionalData.Add("trackingKeyMinor", "123");

	var extension = await graphClient.Users[email].Extensions.Request().AddAsync(newExtension);

	open System
	open System.Globalization

	type ISplitter =
	abstract member Split: string -> int -> string[]

	type Splitter () =
	let folder (lim:int) (acc:string list) (el:string) =
	match acc with
	\| head::tail ->

	using System;

	class Program
	{
	static Func<int, int> CreateAdder(int a)
	{
	int F(int i)
	{
	Console.WriteLine($"Closured {a}");
	return a + i;