FIX typo (clean compile)

2023-06-16 22:06:48 -04:00 · 2023-06-16 22:06:48 -04:00 · 4c0b192b9c
parent ad0975aba7
commit 4c0b192b9c
1 changed files with 9 additions and 6 deletions
--- a/lib/Internal/Budget.hs
+++ b/lib/Internal/Budget.hs
@ -112,12 +112,15 @@ entryPair from to cur val = case cur of
      combineError s1 s2 (,)
    entry c TaggedAcnt {taAcnt, taTags} v =
      resolveEntry $
-        Entry
-          { eAcnt = taAcnt
-          , eValue = v
-          , eComment = ""
-          , eCurrency = c
-          , eTags = taTags
+        FullEntry
+          { feCurrency = c
+          , feEntry =
+              Entry
+                { eAcnt = taAcnt
+                , eValue = v
+                , eComment = ""
+                , eTags = taTags
+                }
          }

 sortAllo :: MultiAllocation v -> InsertExcept (DaySpanAllocation v)