FIX typo (clean compile)

This commit is contained in:
Nathan Dwarshuis 2023-06-16 22:06:48 -04:00
parent ad0975aba7
commit 4c0b192b9c
1 changed files with 9 additions and 6 deletions

View File

@ -112,12 +112,15 @@ entryPair from to cur val = case cur of
combineError s1 s2 (,) combineError s1 s2 (,)
entry c TaggedAcnt {taAcnt, taTags} v = entry c TaggedAcnt {taAcnt, taTags} v =
resolveEntry $ resolveEntry $
Entry FullEntry
{ eAcnt = taAcnt { feCurrency = c
, eValue = v , feEntry =
, eComment = "" Entry
, eCurrency = c { eAcnt = taAcnt
, eTags = taTags , eValue = v
, eComment = ""
, eTags = taTags
}
} }
sortAllo :: MultiAllocation v -> InsertExcept (DaySpanAllocation v) sortAllo :: MultiAllocation v -> InsertExcept (DaySpanAllocation v)