dev: timedot: clarify, cleanup

hledger-lib/Hledger/Read/TimedotReader.hs

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

hledger/hledger.m4.md

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