Simon Hafner reactormonk

reactormonk / Uncurry.hs

Created July 28, 2018 13:24 — forked from Lysxia/Uncurry.hs

	class Uncurry fun types r where
	uncurryNP :: fun -> NP I types -> r

	instance forall fun r t types.
	( Uncurry fun types r
	) => Uncurry (t -> fun) (t ': types) r where
	uncurryNP f ((I a) :* as) = uncurryNP (f a) as

	instance (s ~ r) => Uncurry s '[] r where
	uncurryNP z Nil = z

reactormonk / Main.elm

Last active August 11, 2016 14:12 — forked from anonymous/Main.elm

reactormonk / hash.rb

Created December 14, 2011 10:54 — forked from madsheep/hash.rb

Hardcore deep hash

	class Hash

	define_method '[]_with_try_on', do \|*args\|
	if args.size == 1 and respond_to?(args.first)
	send(:'[]_with_try_on', args.first)
	else
	args.inject(self.dup){\|memo, e\| memo.dup.delete(e) if memo.is_a?(Hash) }
	end
	end

reactormonk / rest.rb

Created March 23, 2010 11:54 — forked from botanicus/rest.rb

	class RESTController < Controller
	def self.object_name=(object_name)
	@@object_name = object_name
	end

	def self.object_name
	@@object_name
	end

	# @api plugin

reactormonk / mini config.ru

Created February 19, 2010 14:09

	require 'nokogiri'

	app = proc do \|env\|
	doc = Nokogiri::HTML('<html><head></head><body><div id="hello">Hello World</div></body></html>')
	body = doc.css('#hello').content
	[body, 200, { 'Content-Type' => 'text/plain', 'Content-Length' => body.size.to_s }]
	end

	run app

reactormonk / README.textile

Created February 14, 2010 08:19 — forked from botanicus/README.textile

About

reactormonk / gist:189931

Created September 20, 2009 21:19 — forked from dkubb/gist:189923

	class Game
	include DataMapper::Resource

	#
	# Properties
	#
	property :id, Serial

	#
	# Associations