Permalink
Browse files

Simple style fix

  • Loading branch information...
1 parent 555a21a commit 27a1e486120b03f7d180b5389f5ebeff6f968d29 @ghoseb committed Mar 15, 2010
Showing with 10 additions and 11 deletions.
  1. +10 −11 src/in/freegeek/yfinance.clj
@@ -10,16 +10,15 @@
"Construct the complete URL given the params"
[y1 m1 d1 y2 m2 d2 sym]
(let [start (time/date-time y1 m1 d1)
- end (time/date-time y2 m2 d2)
- url (format +base-url+
- sym
- (dec (time/month start))
- (time/day start)
- (time/year start)
- (dec (time/month end))
- (time/day end)
- (time/year end))]
- url))
+ end (time/date-time y2 m2 d2)]
+ (format +base-url+
+ sym
+ (dec (time/month start))
+ (time/day start)
+ (time/year start)
+ (dec (time/month end))
+ (time/day end)
+ (time/year end))))
(defn- fetch-url
@@ -31,7 +30,7 @@
(defn- collect-response
"Wait for all the agents to finish and then return the response"
[& agnts]
- (apply await agnts)
+ (apply await agnts) ; FIXME: Have a sane timeout
(for [a agnts]
(if (= (status a) 200)
(string a)

0 comments on commit 27a1e48

Please sign in to comment.