home
/
code
/
tt.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
264fbef
)
Sync log-writer for all commands
author
Siraaj Khandkar
<siraaj@khandkar.net>
Tue, 23 Mar 2021 14:15:38 +0000
(10:15 -0400)
committer
Siraaj Khandkar
<siraaj@khandkar.net>
Tue, 23 Mar 2021 14:15:38 +0000
(10:15 -0400)
not just download.
tt.rkt
patch
|
blob
|
blame
|
history
diff --git
a/tt.rkt
b/tt.rkt
index
1cb90cf
..
5db66ea
100644
(file)
--- a/
tt.rkt
+++ b/
tt.rkt
@@
-400,8
+400,8
@@
(log-message (current-logger) 'fatal 'stop "Exiting." #f)
(thread-wait log-writer))
(log-message (current-logger) 'fatal 'stop "Exiting." #f)
(thread-wait log-writer))
-(: log
g
er-start (-> Log-Level Thread))
-(define (log
g
er-start level)
+(: log
-writ
er-start (-> Log-Level Thread))
+(define (log
-writ
er-start level)
(let* ([logger
(make-logger #f #f level #f)]
[log-receiver
(let* ([logger
(make-logger #f #f level #f)]
[log-receiver
@@
-437,7
+437,7
@@
"u, upload : Upload your twtxt file (alias to execute ~/.tt/upload)."
""
#:args (command . args)
"u, upload : Upload your twtxt file (alias to execute ~/.tt/upload)."
""
#:args (command . args)
- (define log-writer (log
g
er-start log-level))
+ (define log-writer (log
-writ
er-start log-level))
(current-command-line-arguments (list->vector args))
(match command
[(or "d" "download")
(current-command-line-arguments (list->vector args))
(match command
[(or "d" "download")
@@
-454,8
+454,7
@@
#:args (filename)
(define-values (_res _cpu real-ms _gc)
(time-apply timeline-download (list num-workers (file->peers filename))))
#:args (filename)
(define-values (_res _cpu real-ms _gc)
(time-apply timeline-download (list num-workers (file->peers filename))))
- (log-info "Timeline downloaded in ~a seconds." (/ real-ms 1000.0))
- (log-writer-stop log-writer)))]
+ (log-info "Timeline downloaded in ~a seconds." (/ real-ms 1000.0))))]
[(or "u" "upload")
(command-line
#:program
[(or "u" "upload")
(command-line
#:program
@@
-482,5
+481,5
@@
"Long output format"
(set! out-format 'multi-line)]
#:args (filename)
"Long output format"
(set! out-format 'multi-line)]
#:args (filename)
- (timeline-print out-format (timeline-read order (file->peers filename)))))]
-
))))
+ (timeline-print out-format (timeline-read order (file->peers filename)))))]
)
+
(log-writer-stop log-writer
))))
This page took
0.022802 seconds
and
4
git commands to generate.