@@ -1389,11 +1389,6 @@ update env ledger NodeState{headState = st, pendingDeposits, currentSlot} ev = c
1389
1389
-- should compose event handling better.
1390
1390
newState TickObserved {chainSlot}
1391
1391
<> onOpenChainTick env pendingDeposits openState chainTime
1392
- (Open OpenState {headId = ourHeadId}, ChainInput Observation {observedTx = OnRecoverTx {headId, recoveredTxId, recoveredUTxO}, newChainState})
1393
- | ourHeadId == headId ->
1394
- newState DepositRecovered {chainState = newChainState, headId, depositTxId = recoveredTxId, recovered = recoveredUTxO}
1395
- | otherwise ->
1396
- Error NotOurHead {ourHeadId, otherHeadId = headId}
1397
1392
(Open openState@ OpenState {headId = ourHeadId}, ChainInput Observation {observedTx = OnIncrementTx {headId, newVersion, depositTxId}, newChainState})
1398
1393
| ourHeadId == headId ->
1399
1394
onOpenChainIncrementTx openState newChainState newVersion depositTxId
@@ -1425,6 +1420,8 @@ update env ledger NodeState{headState = st, pendingDeposits, currentSlot} ev = c
1425
1420
-- Node-level
1426
1421
(_, ClientInput Recover {recoverTxId}) -> do
1427
1422
onClientRecover currentSlot pendingDeposits recoverTxId
1423
+ (_, ChainInput Observation {observedTx = OnRecoverTx {headId, recoveredTxId, recoveredUTxO}, newChainState}) ->
1424
+ newState DepositRecovered {chainState = newChainState, headId, depositTxId = recoveredTxId, recovered = recoveredUTxO}
1428
1425
-- General
1429
1426
(_, ChainInput Rollback {rolledBackChainState}) ->
1430
1427
newState ChainRolledBack {chainState = rolledBackChainState}
0 commit comments