FIX typos

This commit is contained in:
Nathan Dwarshuis 2023-06-17 20:57:24 -04:00
parent 8d45614571
commit 87e6dcff8f
3 changed files with 13 additions and 5 deletions

View File

@ -105,7 +105,7 @@ txPair day from to cur val desc =
, dtxDate = day
, dtxEntries =
[ EntrySet
{ desTotalValue = val
{ desTotalValue = -val
, desCurrency = cur
, desFromEntry0 = entry from
, desToEntryBal = entry to

View File

@ -495,6 +495,10 @@ deriving instance Show (FieldMatcher T.Text)
data TxSubGetter = TxSubGetter
{ tsgFromAcnt :: !EntryAcnt
, tsgToAcnt :: !EntryAcnt
, tsgFromComment :: !T.Text
, tsgToComment :: !T.Text
, tsgFromTags :: ![TagID]
, tsgToTags :: ![TagID]
, tsgValue :: !EntryNumGetter
, tsgCurrency :: !EntryCur
, tsgFromEntries :: ![EntryGetter]

View File

@ -361,6 +361,10 @@ resolveSubGetter
TxSubGetter
{ tsgFromAcnt
, tsgToAcnt
, tsgFromTags
, tsgToTags
, tsgFromComment
, tsgToComment
, tsgValue
, tsgCurrency
, tsgFromEntries
@ -374,15 +378,15 @@ resolveSubGetter
Entry
{ eAcnt = fa
, eValue = ()
, eComment = "" -- TODO actually fill this in
, eTags = [] -- TODO what goes here?
, eComment = tsgFromComment
, eTags = tsgFromTags
}
let toEntry =
Entry
{ eAcnt = ta
, eValue = ()
, eComment = ""
, eTags = []
, eComment = tsgToComment
, eTags = tsgToTags
}
return
EntrySet