lib: fix error message formatting (header displayed twice)
This commit is contained in:
parent
825b9ce5b3
commit
77fa81ea4d
@ -689,7 +689,7 @@ transactionFromCsvRecord sourcepos rules record = t
|
|||||||
mdate2' = maybe Nothing (maybe (error' $ dateerror "date2" (fromMaybe "" mdate2) mdateformat) Just . mparsedate) mdate2
|
mdate2' = maybe Nothing (maybe (error' $ dateerror "date2" (fromMaybe "" mdate2) mdateformat) Just . mparsedate) mdate2
|
||||||
dateerror datefield value mdateformat = unlines
|
dateerror datefield value mdateformat = unlines
|
||||||
["error: could not parse \""++value++"\" as a date using date format "++maybe "\"YYYY/M/D\", \"YYYY-M-D\" or \"YYYY.M.D\"" show mdateformat
|
["error: could not parse \""++value++"\" as a date using date format "++maybe "\"YYYY/M/D\", \"YYYY-M-D\" or \"YYYY.M.D\"" show mdateformat
|
||||||
,"the CSV record is: "++showRecord record
|
, showRecord record
|
||||||
,"the "++datefield++" rule is: "++(fromMaybe "required, but missing" $ mfieldtemplate datefield)
|
,"the "++datefield++" rule is: "++(fromMaybe "required, but missing" $ mfieldtemplate datefield)
|
||||||
,"the date-format is: "++fromMaybe "unspecified" mdateformat
|
,"the date-format is: "++fromMaybe "unspecified" mdateformat
|
||||||
,"you may need to "
|
,"you may need to "
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user