;check: ordereddates: fix double "Error"
This commit is contained in:
parent
a3e94290e4
commit
e82e1db464
@ -34,7 +34,7 @@ journalCheckOrdereddates CliOpts{reportspec_=rspec} j = do
|
|||||||
txn1str = T.unpack . linesPrepend (T.pack " ") $ showTransaction previous
|
txn1str = T.unpack . linesPrepend (T.pack " ") $ showTransaction previous
|
||||||
txn2str = T.unpack . linesPrepend2 (T.pack "> ") (T.pack " ") $ showTransaction error
|
txn2str = T.unpack . linesPrepend2 (T.pack "> ") (T.pack " ") $ showTransaction error
|
||||||
Left $
|
Left $
|
||||||
"Error: transaction date" <> datestr <> " is out of order"
|
"transaction date" <> datestr <> " is out of order"
|
||||||
<> uniquestr <> "\nat " <> positionstr <> ":\n\n"
|
<> uniquestr <> "\nat " <> positionstr <> ":\n\n"
|
||||||
<> txn1str <> txn2str
|
<> txn1str <> txn2str
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user