aboutsummaryrefslogtreecommitdiff
path: root/lib/Server/Frontend/Tickets.hs
diff options
context:
space:
mode:
authorstuebinm2024-05-15 01:54:29 +0200
committerstuebinm2024-05-15 01:56:55 +0200
commit92a302caa945f48e798aa4e053373d1b8bfc2cfb (patch)
treec28fd286fdb48e87eb551cd175dc79f1fc14b83e /lib/Server/Frontend/Tickets.hs
parent0c9a5d3be15d8f0cfa0fcddcefcbb65ec5a8eadd (diff)
Frontend.SpaceTime: make diagram's y axis scalable
in preparation for using these elsewhere, where they are less cramped
Diffstat (limited to 'lib/Server/Frontend/Tickets.hs')
-rw-r--r--lib/Server/Frontend/Tickets.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Server/Frontend/Tickets.hs b/lib/Server/Frontend/Tickets.hs
index 839aeba..c3de1a1 100644
--- a/lib/Server/Frontend/Tickets.hs
+++ b/lib/Server/Frontend/Tickets.hs
@@ -63,7 +63,7 @@ getTicketsR = do
Just day -> (day, day == today)
Nothing -> (today, True)
- maybeSpaceTime <- mkSpaceTimeDiagramHandler day
+ maybeSpaceTime <- mkSpaceTimeDiagramHandler 1 day [ TicketDay ==. day ]
let prevday = (T.pack . iso8601Show . addDays (-1)) day
let nextday = (T.pack . iso8601Show . addDays 1) day