Skip to content

Instantly share code, notes, and snippets.

View reactormonk's full-sized avatar

Simon Hafner reactormonk

203 followers · 43 following
  • Berlin
View GitHub Profile
@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
reactormonk / Main.elm
Last active August 11, 2016 14:12 — forked from anonymous/Main.elm
import Html exposing (..)
import Html.App as App
import Html.Events exposing (..)
import List
import Json.Decode as Json
join : List String -> String
join list = (List.foldr (++) "" list)
main : Program Never
@reactormonk
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
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
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
reactormonk / README.textile
Created February 14, 2010 08:19 — forked from botanicus/README.textile
@reactormonk
reactormonk / gist:189931
Created September 20, 2009 21:19 — forked from dkubb/gist:189923
class Game
include DataMapper::Resource
#
# Properties
#
property :id, Serial
#
# Associations