Peter Ammon ridiculousfish

## SafeSet.m
#import <Foundation/Foundation.h>

@interface SafeSet : NSObject {
    NSMutableSet *set;
    dispatch_queue_t queue;
}
@end

@implementation SafeSet

## gist:3729531
package main

import (
    "fmt"
)

type SetTest struct {
	val string
	result chan bool
}

## gist:5470798
getwcd can be slow.

```
Analysis of sampling fish (pid 17046) every 1 millisecond
Process:         fish [17046]
Path:            /usr/local/bin/fish
Load Address:    0x100000000
Identifier:      fish
Version:         ???
Code Type:       X86-64

## ubsan FUBARd assembly
	.globl	_ZN10parse_ll_t11parse_errorE13parse_token_tPKwz
	.align	16, 0x90
	.type	_ZN10parse_ll_t11parse_errorE13parse_token_tPKwz,@function
_ZN10parse_ll_t11parse_errorE13parse_token_tPKwz: # @_ZN10parse_ll_t11parse_errorE13parse_token_tPKwz
	.cfi_startproc
	.cfi_personality 3, __gxx_personality_v0
.Leh_func_begin40:
	.cfi_lsda 3, .Lexception40
# BB#0:
	pushq	%r15

## gist:7017899
#include <string>

struct obj1_t
{
    std::string text;
    int val;
};

struct obj2_t
{

## gist:8671656
vmmap fancy_fish
Virtual Memory Map of process 27219 (fancy_fish)
Output report format:  2.2  -- 64-bit process

==== Non-writable regions for process 27219
__TEXT                 000000010393f000-0000000103a0f000 [  832K] r-x/rwx SM=COW  ...y/fancy_fish
__LINKEDIT             0000000103ca9000-0000000103e98000 [ 1980K] r--/rwx SM=COW  ...y/fancy_fish
MALLOC (admin)         0000000103e98000-0000000103e99000 [    4K] r--/rwx SM=ZER
MALLOC (admin)         0000000103e9a000-0000000103e9b000 [    4K] ---/rwx SM=NUL
MALLOC (admin)         0000000103eb0000-0000000103eb2000 [    8K] ---/rwx SM=NUL

## inotify test
#include <stdio.h>
#include <errno.h>
#include <string.h>
#include <sys/inotify.h>
#include <sys/time.h>
#include <sys/types.h>
#include <unistd.h>
#include <fcntl.h>

#define INOTIFY_TEST_PATH "/tmp/inotify_test.tmp"

## haste_buggy
import Haste
import Haste.App
import Haste.Foreign

server_func_1 :: Server (String)
server_func_1 = return "func1"

server_func_2 :: Server ()
server_func_2 = return ()

## index.html
<html>
<head>
</head>
<body>
    Hello World
    <script type="text/javascript" src="test.js"></script>
    <script type="text/javascript">
    window.setTimeout(function(){
        Haste.hs_entry_point()
    }, 1000)

## index.html
<html>
<head>
</head>
<body>
    Hello World
    <script type="text/javascript" src="test.js"></script>
    <script type="text/javascript">
    window.setTimeout(function(){
        Haste.hs_entry_point("foo", "bar")
    }, 1000)
	#import <Foundation/Foundation.h>

	@interface SafeSet : NSObject {
	NSMutableSet *set;
	dispatch_queue_t queue;
	}
	@end

	@implementation SafeSet
	package main

	import (
	"fmt"
	)

	type SetTest struct {
	val string
	result chan bool
	}
	getwcd can be slow.

	```
	Analysis of sampling fish (pid 17046) every 1 millisecond
	Process: fish [17046]
	Path: /usr/local/bin/fish
	Load Address: 0x100000000
	Identifier: fish
	Version: ???
	Code Type: X86-64
	.globl _ZN10parse_ll_t11parse_errorE13parse_token_tPKwz
	.align 16, 0x90
	.type _ZN10parse_ll_t11parse_errorE13parse_token_tPKwz,@function
	_ZN10parse_ll_t11parse_errorE13parse_token_tPKwz: # @_ZN10parse_ll_t11parse_errorE13parse_token_tPKwz
	.cfi_startproc
	.cfi_personality 3, __gxx_personality_v0
	.Leh_func_begin40:
	.cfi_lsda 3, .Lexception40
	# BB#0:
	pushq %r15
	#include <string>

	struct obj1_t
	{
	std::string text;
	int val;
	};

	struct obj2_t
	{
	vmmap fancy_fish
	Virtual Memory Map of process 27219 (fancy_fish)
	Output report format: 2.2 -- 64-bit process

	==== Non-writable regions for process 27219
	__TEXT 000000010393f000-0000000103a0f000 [ 832K] r-x/rwx SM=COW ...y/fancy_fish
	__LINKEDIT 0000000103ca9000-0000000103e98000 [ 1980K] r--/rwx SM=COW ...y/fancy_fish
	MALLOC (admin) 0000000103e98000-0000000103e99000 [ 4K] r--/rwx SM=ZER
	MALLOC (admin) 0000000103e9a000-0000000103e9b000 [ 4K] ---/rwx SM=NUL
	MALLOC (admin) 0000000103eb0000-0000000103eb2000 [ 8K] ---/rwx SM=NUL
	#include <stdio.h>
	#include <errno.h>
	#include <string.h>
	#include <sys/inotify.h>
	#include <sys/time.h>
	#include <sys/types.h>
	#include <unistd.h>
	#include <fcntl.h>

	#define INOTIFY_TEST_PATH "/tmp/inotify_test.tmp"
	import Haste
	import Haste.App
	import Haste.Foreign

	server_func_1 :: Server (String)
	server_func_1 = return "func1"

	server_func_2 :: Server ()
	server_func_2 = return ()
	<html>
	<head>
	</head>
	<body>
	Hello World
	<script type="text/javascript" src="test.js"></script>
	<script type="text/javascript">
	window.setTimeout(function(){
	Haste.hs_entry_point()
	}, 1000)