dev: timedot: clarify, cleanup

This commit is contained in:
Simon Michael 2023-05-02 17:02:30 -10:00
parent c026e74611
commit 1b19f3d330
2 changed files with 5 additions and 3 deletions

View File

@ -195,7 +195,9 @@ entryp = do
lift $ traceparse' "entryp" lift $ traceparse' "entryp"
return t return t
durationp :: TextParser m Quantity type Hours = Quantity
durationp :: TextParser m Hours
durationp = do durationp = do
traceparse "durationp" traceparse "durationp"
try numericquantityp <|> dotquantityp try numericquantityp <|> dotquantityp
@ -210,7 +212,7 @@ durationp = do
-- 1.5h -- 1.5h
-- 90m -- 90m
-- @ -- @
numericquantityp :: TextParser m Quantity numericquantityp :: TextParser m Hours
numericquantityp = do numericquantityp = do
-- lift $ traceparse "numericquantityp" -- lift $ traceparse "numericquantityp"
(q, _, _, _) <- numberp Nothing (q, _, _, _) <- numberp Nothing

View File

@ -4189,7 +4189,7 @@ $ hledger -f a.timedot print # .timedot file extension activates the timedot r
(hom:errands) 2.00 (hom:errands) 2.00
2021-08-04 * 2021-08-04 *
(fos:hledger:timedot) 0.50 (fos:hledger:timedot) 0.50 ; docs
2021-08-04 * 2021-08-04 *
(per:admin:finance) 0 (per:admin:finance) 0