       (wrap-file-info)))
 
 (def chat-channel (ref ()))
-(defn send-msg [msg]
+(defn send-msg [IO msg]
   (enqueue @chat-channel (str "iyye> " msg)))
-
 
 (defn chat-init [ch])
 

        (ring.middleware resource file-info)
        (hiccup core page))
  (:require [compojure.route :as route]
            [iyye.ioframes :as bios]
            [clojure.tools.logging :as log]))

(defn page []
  "HTML page rendered using Hiccup. Includes the css and js for websockets."

  (start-http-server (wrap-ring-handler app-routes)
                     {:host "localhost" :port 8080 :websocket true}))

(def lispy-chat-IO (ioframes/create-IO "lispy-chat" start-lispy-chat-server (ioframes/create-InputSources false [lisp/process-input]) (ioframes/->OutputActuators false [send-msg])))

(def lispy-chat-process-input (partial ioframes/process-input lispy-chat-IO))

(defn chat-init [ch]
  "register callback for receive msg"
