Ping Chen rnons

Gist Clients

Want to create a Gist from your editor, the command line, or the Services menu? Here's how.

Editor Support

Running redis using upstart on Ubuntu

I've been trying to understand how to setup systems from the ground up on Ubuntu. I just installed redis onto the box and here's how I did it and some things to look out for.

To install:

build

$ ghc temp.hs

Note

Don't use -O2 when build temp.hs, would stack overflow.

CSS Layout Debugger

A tweet-sized debugger for visualizing your CSS layouts. Outlines every DOM element on your page a random (valid) CSS hex color.

One-line version to paste in your DevTools

Use $$ if your browser aliases it:

~ 108 byte version

Introduction

At DICOM Grid, we recently made the decision to use Haskell for some of our newer projects, mostly small, independent web services. This isn't the first time I've had the opportunity to use Haskell at work - I had previously used Haskell to write tools to automate some processes like generation of documentation for TypeScript code - but this is the first time we will be deploying Haskell code into production.

Over the past few months, I have been working on two Haskell services:

A reimplementation of an existing socket.io service, previously written for NodeJS using TypeScript.
A new service, which would interact with third-party components using standard data formats from the medical industry.

I will write here mostly about the first project, since it is a self-contained project which provides a good example of the power of Haskell. Moreover, the proces

This blog post series has moved here.

You might also be interested in the 2016 version.

	#!/usr/bin/env ruby
	# Usage: gitio URL [CODE]
	#
	# Turns a github.com URL
	# into a git.io URL
	#
	# Copies the git.io URL to your clipboard.

	url = ARGV[0]
	code = ARGV[1]

	{-# LANGUAGE OverloadedStrings #-}

	import Data.Conduit
	import Data.Conduit.Network
	import Data.Conduit.Text (encode, decode, utf8)
	import qualified Data.Conduit.List as CL
	import qualified Data.Conduit.Binary as CB

	import Data.Text (toUpper)
	import qualified Data.ByteString.Char8 as S8

	"""
	Created on June 19th, 2013. via. Sublime Text 2

	@author: lurker
	"""

	#!/usr/bin/env python
	# -- coding: utf8 --

	import urllib2,httplib

	/* bling.js */
	window.$ = document.querySelector.bind(document);
	window.$$ = document.querySelectorAll.bind(document);
	Node.prototype.on = window.on = function(name, fn) { this.addEventListener(name, fn); };
	NodeList.prototype.__proto__ = Array.prototype;
	NodeList.prototype.on = function(name, fn) { this.forEach((elem) => elem.on(name, fn)); };