From 4c0b192b9c50b66273a8394604f27bf0dbdb6cde Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Fri, 16 Jun 2023 22:06:48 -0400
Subject: [PATCH] FIX typo (clean compile)

---
 lib/Internal/Budget.hs | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/lib/Internal/Budget.hs b/lib/Internal/Budget.hs
index 1e0a3db..ad46f74 100644
--- 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)