This is a simple chat-like program using pub-sub pattern, backed by PostgreSQL's LISTEN/NOTIFY command.
publish message to foo channel from  user nickname.
$ python pub.py foo nickname
PUBLISH to channel #foo
Locate the section for your github remote in the .git/config file. It looks like this:
[remote "origin"]
	fetch = +refs/heads/*:refs/remotes/origin/*
	url = [email protected]:joyent/node.git
Now add the line fetch = +refs/pull/*/head:refs/remotes/origin/pr/* to this section. Obviously, change the github url to match your project's URL. It ends up looking like this:
| import Data.Maybe | |
| import Control.Monad (liftM) | |
| import Data.List (isPrefixOf) | |
| import qualified Data.Map as M | |
| import qualified Data.Foldable as F | |
| -- | Trie container data type | |
| data Trie a = Trie { value :: Maybe a | |
| , children :: M.Map Char (Trie a) } | |
| deriving (Show) | 
| #! /bin/sh | |
| cd /usr/share/locales | |
| ./install-language-pack eo | |
| ./install-language-pack ia | |
| ./install-language-pack ie | |
| ./install-language-pack io | |
| ./install-language-pack vo | |
| ./install-language-pack ca | 
| CONFIGURATION | |
| ------------- | |
| To setup, simply set your username and API access key in the | |
| cloudfiles.get_conenction call. If you're not using the UK | |
| version of Rackspace, remove the third parameter from the above | |
| call. | |
| EXAMPLE USAGE | |
| ------------- | 
| | While lhs.exec = \env -> let f = \env' -> case @e.eval env' of | |
| VFalse -> env' | |
| VTrue -> f (@s1.exec env') | |
| in f e |