FIX typo (clean compile)

lib/Internal/Budget.hs

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