slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

;dev: fix a warning

Browse Source
This commit is contained in:
Simon Michael 2025-04-22 12:26:55 -10:00
parent 32f2ef9b15
commit 98b40b2b0e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Read/RulesReader.hs
View File

@ -1115,7 +1115,7 @@ transactionFromCsvRecord timesarezoned mtzin tzout sourcepos rules record = t
field = hledgerField rules record :: HledgerFieldName -> Maybe FieldTemplate field = hledgerField rules record :: HledgerFieldName -> Maybe FieldTemplate
fieldval = hledgerFieldValue rules record :: HledgerFieldName -> Maybe Text fieldval = hledgerFieldValue rules record :: HledgerFieldName -> Maybe Text
mdateformat = rule "date-format" mdateformat = rule "date-format"
parsedate = parseDateWithCustomOrDefaultFormats timesarezoned mtzin tzout mdateformat parseDate = parseDateWithCustomOrDefaultFormats timesarezoned mtzin tzout mdateformat
mkdateerror datefield datevalue mdateformat' = T.unpack $ T.unlines mkdateerror datefield datevalue mdateformat' = T.unpack $ T.unlines
["could not parse \""<>datevalue<>"\" as a date using date format " ["could not parse \""<>datevalue<>"\" as a date using date format "
<>maybe "\"YYYY/M/D\", \"YYYY-M-D\" or \"YYYY.M.D\"" (T.pack . show) mdateformat' <>maybe "\"YYYY/M/D\", \"YYYY-M-D\" or \"YYYY.M.D\"" (T.pack . show) mdateformat'
@ -1138,9 +1138,9 @@ transactionFromCsvRecord timesarezoned mtzin tzout sourcepos rules record = t
date = fromMaybe "" $ fieldval "date" date = fromMaybe "" $ fieldval "date"
-- PARTIAL: -- PARTIAL:
date' = fromMaybe (error' $ mkdateerror "date" date mdateformat) $ parsedate date date' = fromMaybe (error' $ mkdateerror "date" date mdateformat) $ parseDate date
mdate2 = fieldval "date2" mdate2 = fieldval "date2"
mdate2' = (maybe (error' $ mkdateerror "date2" (fromMaybe "" mdate2) mdateformat) Just . parsedate) =<< mdate2 mdate2' = (maybe (error' $ mkdateerror "date2" (fromMaybe "" mdate2) mdateformat) Just . parseDate) =<< mdate2
status = status =
case fieldval "status" of case fieldval "status" of
Nothing -> Unmarked Nothing -> Unmarked