Merge pull request #5 from ocharles/master

Add a Haskell implementation

competition/Makefile

@@ -1,5 +1,9 @@
 build:
 	javac -cp webbit-0.4.7-full.jar EchoWsServer.java
+	ghc --make -O2 -threaded wsdemo-snap.hs
 
 clean:
 	rm *.class
+	rm *snap.hi
+	rm *snap.o
+	rm wsdemo-snap

competition/wsdemo-snap.hs

@@ -0,0 +1,10 @@
+import Control.Monad
+import Snap.Http.Server
+import Network.WebSockets
+import Network.WebSockets.Snap
+
+echo :: Request -> WebSockets Hybi00 ()
+echo req = acceptRequest req >> forever (receive >>= send)
+
+main :: IO ()
+main = quickHttpServe $ runWebSocketsSnap echo

configure_ubuntu.sh

@@ -1,4 +1,4 @@
-sudo apt-get install -y emacs python-dev python-setuptools build-essential erlang-nox libevent-dev git golang mercurial default-jdk ruby rubygems
+sudo apt-get install -y emacs python-dev python-setuptools build-essential erlang-nox libevent-dev git golang mercurial default-jdk ruby rubygems haskell-platform
 sudo easy_install ws4py gevent
 
 git clone git://github.com/ericmoritz/wsdemo.git wsdemo
@@ -17,3 +17,6 @@ popd
 npm install websocket
 sudo go get code.google.com/p/go.net/websocket
 sudo gem install em-websocket
+
+sudo cabal update
+sudo cabal install snap-server snap-core websockets websockets-snap