diff --git a/core/src/statusbar.sld b/core/src/statusbar.sld index 4374d0d..6e33216 100644 --- a/core/src/statusbar.sld +++ b/core/src/statusbar.sld @@ -137,14 +137,14 @@ (mutex-unlock! out-mutex))) (define (handle-log-event event data) (cond - ((eqv? event 'next) (bypass-write (string->utf8 data))) - ((eqv? event 'write) (bypass-write (string->utf8 data))) + ((eqv? event 'next) (bypass-write (string->utf8 (string-copy data 0 (- (string-length data) 1))))) + ((eqv? event 'write) (bypass-write (string->utf8 data))) ; TODO(puck): is this ever called? ((eqv? event 'error) (error data)) ((and (eqv? event 'activity-start) (eq? (list-ref data 3) 104)) (set! last-builds-activity-id (list-ref data 1))) ((and (eqv? event 'activity-start) (eq? (list-ref data 3) 105)) (set! build-activity-mapping (mapping-set! build-activity-mapping (list-ref data 1) - (string-drop-while (vector-ref (list-ref data 5) 0) (lambda (f) (not (char=? f #\-))))))) + (string-drop (string-drop-while (vector-ref (list-ref data 5) 0) (lambda (f) (not (char=? f #\-)))) 1)))) ((eqv? event 'activity-start) (set! last-activity-start-id (list-ref data 1)) (set! last-activity-start (list-ref data 4)) (rerender-status-bar)) ((eqv? event 'activity-stop) (set! build-activity-mapping (mapping-delete! build-activity-mapping data)))