From b627306772eb37b167a9e9ef4961696a53fbcee3 Mon Sep 17 00:00:00 2001
From: Tony Zorman <soliditsallgood@mailbox.org>
Date: Thu, 10 Nov 2022 11:10:09 +0100
Subject: [PATCH] X.P.OrgMode: Include 00:xx and xx:00 in the date range
---
XMonad/Prompt/OrgMode.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/XMonad/Prompt/OrgMode.hs b/XMonad/Prompt/OrgMode.hs
index 0bd8ef0e..b88098a0 100644
--- a/XMonad/Prompt/OrgMode.hs
+++ b/XMonad/Prompt/OrgMode.hs
@@ -533,12 +533,12 @@ pPriority = option NoPriority $
pTimeOfDay :: Parser (Maybe TimeOfDay)
pTimeOfDay = option Nothing $
skipSpaces *> choice
- [ Just <$> (TimeOfDay <$> pHour <* string ":" <*> pMinute) -- HH:MM
- , Just <$> (TimeOfDay <$> pHour <*> pure 0 ) -- HH
+ [ Just <$> (TimeOfDay <$> pHour <* ":" <*> pMinute) -- HH:MM
+ , Just <$> (TimeOfDay <$> pHour <*> pure 0 ) -- HH
]
where
- pMinute :: Parser Int = pNumBetween 1 60
- pHour :: Parser Int = pNumBetween 1 24
+ pMinute :: Parser Int = pNumBetween 0 59
+ pHour :: Parser Int = pNumBetween 0 23
-- | Parse a 'Date'.
pDate :: Parser Date