Permalink
Browse files

README and comments

  • Loading branch information...
1 parent 223950c commit 6050c75e499cc78e1319317c58f209c12979bad8 @zoka committed Mar 23, 2012
Showing with 13 additions and 13 deletions.
  1. +1 −1 README.md
  2. +12 −12 src/ringmon/nrepl.clj
View
2 README.md
@@ -146,7 +146,7 @@ Again, the monitoring page is at `localhost:8080/ringmon/monview.html`.
You might want to add more covenient link to this page in your appllication
like it was done in [noirMon](http://noirmon.herokuapp.com/).
-### As a replacemnet for `lein repl`
+### As a replacement for `lein repl`
Even if your Clojure applicarion is not web based, you can add
ringMon to dev dependecies and use it as a replacement for
View
24 src/ringmon/nrepl.clj
@@ -58,18 +58,18 @@
(defn transport-pair
"Returns vector of 2 direct transport instances,
first one for client, and second one for server.
- This construct looks very mush like two ends od
- regular edtablished TCP socket connection, only
+ This construct looks very mush like two ends od
+ regular established TCP socket connection, only
in this case it preserves message boundaries
- and has little bit of messages patching in order
+ and has little bit of message patching in order
to mimic bencode behaviour.
It is assumed that only single thread will be waiting for
- reception on each side of the transport pair, so in
- case of close operation it is safe for the client
- or server thread to clear its incoming queue without
- adverse impact. Close operation always makes sure that
- other side is unstuck from blockig receive and notified
- about close."
+ reception on each side of the transport pair, so in
+ case of close operation it is safe for the client
+ or server receoving thread to clear its incoming queue
+ without adverse impact. Close operation always makes sure that
+ the other side is unstuck from blocking receive and notified
+ the connection is closed."
[]
(let [client-q (LinkedBlockingQueue.)
server-q (LinkedBlockingQueue.)
@@ -116,8 +116,8 @@
[client-transport server-transport]))
(defn connect
- "Connects to an REPL within the same procees using
- pair of LinkedBlockedQueue instances.
+ "Connects to nREPL server within the same procees using
+ the pair of LinkedBlockedQueue instances.
There is no real server here, just a
future that handles one to one connection.
Returns client transport instance."
@@ -178,7 +178,7 @@
nil)
(do
;(println "Retrying new-session," c "tries to go.")
- (Thread/sleep 10)
+ (Thread/sleep 50) ; try yo wait longer, was 10
(recur (dec c))))))))
(defn session-instance

0 comments on commit 6050c75

Please sign in to comment.