ndwarshuis
/
pwncash
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

WIP remove tags from tx

This commit is contained in:
Nathan Dwarshuis 2023-02-26 22:56:32 -05:00
parent 4eae92eb01
commit 873211c822
3 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/Internal/Insert.hs
View File

@ -490,7 +490,6 @@ txPair day from to cur val desc = resolveTx tx
Tx Tx
{ txDescr = desc { txDescr = desc
, txDate = day , txDate = day
, txTags = []
, txSplits = [split from (-val), split to val] , txSplits = [split from (-val), split to val]
} }

1
lib/Internal/Types.hs
View File

@ -385,7 +385,6 @@ instance FromDhall ExpSplit
data Tx s = Tx data Tx s = Tx
{ txDescr :: !T.Text { txDescr :: !T.Text
, txDate :: !Day , txDate :: !Day
, txTags :: ![T.Text]
, txSplits :: ![s] , txSplits :: ![s]
} }
deriving (Generic) deriving (Generic)

3
lib/Internal/Utils.hs
View File

@ -173,8 +173,7 @@ toTx sc sa toSplits r@TxRecord {trAmount, trDate, trDesc} =
, sTags = [] -- TODO what goes here? , sTags = [] -- TODO what goes here?
} }
in Tx in Tx
{ txTags = [] { txDate = trDate
, txDate = trDate
, txDescr = trDesc , txDescr = trDesc
, txSplits = fromSplit : ss_ , txSplits = fromSplit : ss_
} }