diff --git a/apps/simplex-store-service/src/StoreService/Names/Orders.hs b/apps/simplex-store-service/src/StoreService/Names/Orders.hs index ce50d1c0df..5db32c645c 100644 --- a/apps/simplex-store-service/src/StoreService/Names/Orders.hs +++ b/apps/simplex-store-service/src/StoreService/Names/Orders.hs @@ -331,6 +331,7 @@ versionWritten = \case -- | /retry's first check, on the order's current name: a register mined with status 1, or the owner holding the name, went through -- with only its confirmation lost. The order then becomes registered by a compare-and-set on the version read, a code order spending its code. +-- The caller holds the turn of the order's label hash and passes the order as registrationAt reads it. confirmLanded :: OrdersEnv -> NameRegistration -> IO Landing confirmLanded OrdersEnv {oeStore, oeContracts, oeTurns, oeNow} r@NameRegistration {nrId, nrOwner, nrLabelHash, nrPayment, nrRegisterTx, nrRegisterBlock} = do txs <- withTransaction oeStore (`registrationTransactions` nrId)