;imp: check: recentassertions: improve message readability
This commit is contained in:
parent
4b4d35fb80
commit
4b3abfd470
@ -289,18 +289,19 @@ findRecentAssertionError today ps = do
|
|||||||
"%s\n",
|
"%s\n",
|
||||||
"The recentassertions check is enabled, so accounts with balance assertions must",
|
"The recentassertions check is enabled, so accounts with balance assertions must",
|
||||||
"have a balance assertion within %d days of their latest posting.",
|
"have a balance assertion within %d days of their latest posting.",
|
||||||
"In account \"%s\", this posting is %d days later",
|
"",
|
||||||
"than the last balance assertion, which was on %s.",
|
"In %s,",
|
||||||
|
"this posting is %d days later than the balance assertion on %s.",
|
||||||
"",
|
"",
|
||||||
"Consider adding a more recent balance assertion for this account. Eg:",
|
"Consider adding a more recent balance assertion for this account. Eg:",
|
||||||
"",
|
"",
|
||||||
"%s\n %s %s0 = %s0 ; (adjust asserted amount)"
|
"%s\n %s %s0 = %sAMT"
|
||||||
])
|
])
|
||||||
f
|
f
|
||||||
l
|
l
|
||||||
(textChomp ex)
|
(textChomp ex)
|
||||||
maxlag
|
maxlag
|
||||||
acct
|
(bold' $ T.unpack acct)
|
||||||
lag
|
lag
|
||||||
(showDate latestassertdate)
|
(showDate latestassertdate)
|
||||||
(show today)
|
(show today)
|
||||||
|
|||||||
@ -6,6 +6,7 @@ $$$ hledger check recentassertions -f recentassertions.j
|
|||||||
|
|
||||||
The recentassertions check is enabled, so accounts with balance assertions must
|
The recentassertions check is enabled, so accounts with balance assertions must
|
||||||
have a balance assertion within 7 days of their latest posting.
|
have a balance assertion within 7 days of their latest posting.
|
||||||
In account "a", this posting is 8 days later
|
|
||||||
than t/
|
In a,
|
||||||
|
this posting is 8 days later than/
|
||||||
>>>= 1
|
>>>= 1
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user