From 873211c8220ddcdbd3e3e669702521bd47aaf6fe Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sun, 26 Feb 2023 22:56:32 -0500
Subject: [PATCH] WIP remove tags from tx

---
 lib/Internal/Insert.hs | 1 -
 lib/Internal/Types.hs  | 1 -
 lib/Internal/Utils.hs  | 3 +--
 3 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/lib/Internal/Insert.hs b/lib/Internal/Insert.hs
index 2dd5be0..d90004e 100644
--- a/lib/Internal/Insert.hs
+++ b/lib/Internal/Insert.hs
@@ -490,7 +490,6 @@ txPair day from to cur val desc = resolveTx tx
       Tx
         { txDescr = desc
         , txDate = day
-        , txTags = []
         , txSplits = [split from (-val), split to val]
         }
 
diff --git a/lib/Internal/Types.hs b/lib/Internal/Types.hs
index ee44484..5ed8a70 100644
--- a/lib/Internal/Types.hs
+++ b/lib/Internal/Types.hs
@@ -385,7 +385,6 @@ instance FromDhall ExpSplit
 data Tx s = Tx
   { txDescr :: !T.Text
   , txDate :: !Day
-  , txTags :: ![T.Text]
   , txSplits :: ![s]
   }
   deriving (Generic)
diff --git a/lib/Internal/Utils.hs b/lib/Internal/Utils.hs
index d25460f..4435471 100644
--- a/lib/Internal/Utils.hs
+++ b/lib/Internal/Utils.hs
@@ -173,8 +173,7 @@ toTx sc sa toSplits r@TxRecord {trAmount, trDate, trDesc} =
             , sTags = [] -- TODO what goes here?
             }
      in Tx
-          { txTags = []
-          , txDate = trDate
+          { txDate = trDate
           , txDescr = trDesc
           , txSplits = fromSplit : ss_
           }