git.iko.soy/project-m36
on master help sign in
fix transaction graph backtracking with timestamp
2c0c706AgentM
src/lib/ProjectM36/TransactionGraph.hs+1−1
compare with master
unifiedsplit
@@ -509,7 +509,7 @@ backtrackGraph graph currentTid (TransactionIdHeadBranchBacktrack steps) = do
509backtrackGraph graph currentTid btrack@(TransactionStampHeadBacktrack stamp) = do
509backtrackGraph graph currentTid btrack@(TransactionStampHeadBacktrack stamp) = do
510 trans <- transactionForId currentTid graph
510 trans <- transactionForId currentTid graph
511 let parents = transactionParentIds trans
511 let parents = transactionParentIds trans
512− if transactionTimestamp trans < stamp then
512+ if transactionTimestamp trans <= stamp then
513 pure currentTid
513 pure currentTid
514 else if S.null parents then
514 else if S.null parents then
515 Left RootTransactionTraversalError
515 Left RootTransactionTraversalError