SHARE
TWEET

Untitled

a guest Jul 16th, 2014 6 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (use 'lamina.core 'aleph.http 'aleph.formats 'aleph.tcp 'gloss.core)
  2.  
  3. (defn handler [ch client-info]
  4.   (receive-all ch
  5.     #(println (str "You said " %))))
  6.  
  7. (start-tcp-server
  8.   handler
  9.   {:port 9000, :frame (string :utf-8 :delimiters ["\r\n"])})
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top