WIP remove tags from tx
This commit is contained in:
parent
4eae92eb01
commit
873211c822
|
@ -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]
|
||||
}
|
||||
|
||||
|
|
|
@ -385,7 +385,6 @@ instance FromDhall ExpSplit
|
|||
data Tx s = Tx
|
||||
{ txDescr :: !T.Text
|
||||
, txDate :: !Day
|
||||
, txTags :: ![T.Text]
|
||||
, txSplits :: ![s]
|
||||
}
|
||||
deriving (Generic)
|
||||
|
|
|
@ -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_
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue