FIX typos

lib/Internal/History.hs

@@ -105,7 +105,7 @@ txPair day from to cur val desc =
     , dtxDate = day
     , dtxEntries =
         [ EntrySet
-            { desTotalValue = val
+            { desTotalValue = -val
             , desCurrency = cur
             , desFromEntry0 = entry from
             , desToEntryBal = entry to

lib/Internal/Types/Dhall.hs

@@ -495,6 +495,10 @@ deriving instance Show (FieldMatcher T.Text)
 data TxSubGetter = TxSubGetter
   { tsgFromAcnt :: !EntryAcnt
   , tsgToAcnt :: !EntryAcnt
+  , tsgFromComment :: !T.Text
+  , tsgToComment :: !T.Text
+  , tsgFromTags :: ![TagID]
+  , tsgToTags :: ![TagID]
   , tsgValue :: !EntryNumGetter
   , tsgCurrency :: !EntryCur
   , tsgFromEntries :: ![EntryGetter]

lib/Internal/Utils.hs

@@ -361,6 +361,10 @@ resolveSubGetter
   TxSubGetter
     { tsgFromAcnt
     , tsgToAcnt
+    , tsgFromTags
+    , tsgToTags
+    , tsgFromComment
+    , tsgToComment
     , tsgValue
     , tsgCurrency
     , tsgFromEntries
@@ -374,15 +378,15 @@ resolveSubGetter
             Entry
               { eAcnt = fa
               , eValue = ()
-              , eComment = "" -- TODO actually fill this in
+              , eComment = tsgFromComment
-              , eTags = [] -- TODO what goes here?
+              , eTags = tsgFromTags
               }
       let toEntry =
             Entry
               { eAcnt = ta
               , eValue = ()
-              , eComment = ""
+              , eComment = tsgToComment
-              , eTags = []
+              , eTags = tsgToTags
               }
       return
         EntrySet