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
|
Tx
|
||||||
{ txDescr = desc
|
{ txDescr = desc
|
||||||
, txDate = day
|
, txDate = day
|
||||||
, txTags = []
|
|
||||||
, txSplits = [split from (-val), split to val]
|
, txSplits = [split from (-val), split to val]
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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_
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue