FIX typos
This commit is contained in:
parent
8d45614571
commit
87e6dcff8f
|
@ -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
|
||||
|
|
|
@ -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]
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue