diff options
Diffstat (limited to 'module/output/terminal.scm')
-rw-r--r-- | module/output/terminal.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index f4f46272..839b9275 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -337,7 +337,7 @@ (else (next-method)))) (app/define-method (main-loop date) - (define state (list (day-view (app/getf 'event-set) date))) + (define state (list (day-view (car (app/getf 'event-set)) date))) (while #t (output (car state)) |