diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-25 20:35:26 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-25 20:35:26 +0200 |
commit | fc61ab9fb1dbf51c7f96f7e08d9e52f2c9a58b51 (patch) | |
tree | 7347202d91527dc326ff36f004621a71d35ea212 /module/output | |
parent | Made day-stream slightly less buggy. (diff) | |
download | calp-fc61ab9fb1dbf51c7f96f7e08d9e52f2c9a58b51.tar.gz calp-fc61ab9fb1dbf51c7f96f7e08d9e52f2c9a58b51.tar.xz |
Move statprof to encompass all.
Diffstat (limited to '')
-rw-r--r-- | module/output/none.scm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/module/output/none.scm b/module/output/none.scm index 2380438b..757ee8bd 100644 --- a/module/output/none.scm +++ b/module/output/none.scm @@ -1,19 +1,17 @@ (define-module (output none) - #:use-module (statprof) #:use-module (vcomponent group) #:use-module (srfi srfi-41) #:use-module (srfi srfi-19) + #:use-module (srfi srfi-19 setters) #:use-module (srfi srfi-19 util) #:use-module (util) #:export (none-main)) (define (none-main calendars events args) (define date (drop-time (current-date))) - (statprof - (lambda () - (group->event-list - (stream-car - ;; TODO reusing the same grouping causes it to lose events. - ;; I currently have no idea why, but it's BAD. - (get-groups-between (group-stream events) - date date)))))) + (group->event-list + (stream-car + ;; TODO reusing the same grouping causes it to lose events. + ;; I currently have no idea why, but it's BAD. + (get-groups-between (group-stream events) + date date)))) |