 (set! (.-colors prompt) false)
 
 (def storage (->File "FAKE"))
-; (def client (->Bitcoind ""))
+(def client (->FakeClient ""))
 
 (defn- read-prompt [message]
     (let [return (chan 1)]

    (execute {
        :storage storage
        :command "list"
        ; :client client
        })
    (go-loop [command (<! (read-in))]
        (if-not (exit? command)

(ns bitsplit-cli.core
    (:use [cljs.core.async :only (chan put! <!)]
          [bitsplit-cli.filesystem :only (->File)]
          [bitsplit-cli.client :only (->FakeClient)]
          [bitsplit-cli.commands :only (execute)])
    (:use-macros 
        [cljs.core.async.macros :only (go-loop)]))
