diff --git a/hledger-lib/Hledger/Read/TimedotReader.hs b/hledger-lib/Hledger/Read/TimedotReader.hs
index 68973fbf2..84ed45dbe 100644
--- a/hledger-lib/Hledger/Read/TimedotReader.hs
+++ b/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
diff --git a/hledger/hledger.m4.md b/hledger/hledger.m4.md
index a56b679da..4c0595bc6 100644
--- a/hledger/hledger.m4.md
+++ b/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