X.P.OrgMode: Also parse time in HHMM format

2025-07-31 04:01:51 -07:00 · 2022-11-10 11:23:23 +01:00
parent b627306772
commit 1c6ae39fc9
3 changed files with 18 additions and 6 deletions
--- a/tests/OrgMode.hs
+++ b/tests/OrgMode.hs
@@ -150,6 +150,7 @@ instance Arbitrary OrgMsg where
    hourGen :: Gen String
    hourGen = oneof
      [ pure " " <<>> (pad <$> hourInt) <<>> pure ":" <<>> (pad <$> minuteInt)
+      , pure " " <<>> (pad <$> hourInt) <<>>               (pad <$> minuteInt)
      , pure ""
      ]
     where