From 689d7bf50e3670a8d43b465b6e932dbe7cf001f3 Mon Sep 17 00:00:00 2001 From: Xiaoyu Date: Mon, 25 Dec 2023 01:03:58 +0800 Subject: [PATCH] remove comment --- src/Deal/DealAction.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Deal/DealAction.hs b/src/Deal/DealAction.hs index 65c2e0bf..408ad489 100644 --- a/src/Deal/DealAction.hs +++ b/src/Deal/DealAction.hs @@ -468,12 +468,12 @@ performActionWrap d (assetBought,poolAfterBought) = buyRevolvingPool d purchaseRatios assetForSale -- `debug` ("purchase ratio"++ show purchaseRatios) newAccMap = Map.adjust (A.draw purchaseAmt d PurchaseAsset) accName accsMap - (CashFlowFrame newBoughtTxn) = fst $ projAssetUnionList [updateOriginDate2 d ast | ast <- assetBought ] d perfAssumps mRates `debug` ("Asset bought"++ show [updateOriginDate2 d ast | ast <- assetBought ]) + (CashFlowFrame newBoughtTxn) = fst $ projAssetUnionList [updateOriginDate2 d ast | ast <- assetBought ] d perfAssumps mRates -- `debug` ("Asset bought"++ show [updateOriginDate2 d ast | ast <- assetBought ]) -- newPcf = CF.CashFlowFrame $ CF.combineTss [] (tr:trs) newBoughtTxn -- `debug` ("reolvoing first txn\n"++ show (head newBoughtTxn)) newPcf = let pIdToChange = fromMaybe PoolConsol pId in - Map.adjust (\(CF.CashFlowFrame trs) -> CF.CashFlowFrame (CF.combineTss [] trs newBoughtTxn)) pIdToChange pFlowMap `debug` ("date"++show d ++">>Asset bought txn"++ show newBoughtTxn) + Map.adjust (\(CF.CashFlowFrame trs) -> CF.CashFlowFrame (CF.combineTss [] trs newBoughtTxn)) pIdToChange pFlowMap -- `debug` ("date"++show d ++">>Asset bought txn"++ show newBoughtTxn) newRc = rc {runPoolFlow = newPcf ,revolvingAssump = Just (poolAfterBought, perfAssumps)}