dev: timedot: clarify, cleanup
This commit is contained in:
parent
c026e74611
commit
1b19f3d330
@ -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
|
||||||
|
|||||||
@ -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
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user