diff --git a/hledger-lib/Hledger/Read/Common.hs b/hledger-lib/Hledger/Read/Common.hs
index b30e7072d..72137d22b 100644
--- a/hledger-lib/Hledger/Read/Common.hs
+++ b/hledger-lib/Hledger/Read/Common.hs
@@ -731,17 +731,17 @@ fromRawNumber suggestedStyle negated raw = (quantity, precision, mdecimalpoint,
 -- Numbers may optionally have a period/comma decimal point 
 -- and/or comma/period/space digit group separators, but we don't
 -- decide which is which here, just return the parts:
--- 
+--
 -- - the first separator char (period or comma or space) seen, if any
--- 
+--
 -- - the digit group(s), possibly several separated by the above char, occuring before..
--- 
+--
 -- - the second and last separator char, and following digit group, if any.
--- 
--- >>> 1,234,567.89
--- ( Just ',', ["1","234","567"], Just ('.', "89") )
--- >>> 1 000
--- ( Just ' ', ["1","000"], Nothing )
+--
+-- >>> parseTest rawnumberp "1,234,567.89"
+-- (Just ',',["1","234","567"],Just ('.',"89"))
+-- >>> parseTest rawnumberp "1 000"
+-- (Just ' ',["1","000"],Nothing)
 rawnumberp :: TextParser m ( Maybe Char , [String] , Maybe (Char, String) )
 rawnumberp = do
     let sepChars = ['.', ','] -- all allowed punctuation characters