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)