fix transaction graph backtracking with timestamp
VMs have lower resolution timers, so this was caught in appveyor
commit2c0c7063836d03c616176e058aba2adfb39e66d4
authorAgentM <agentm@themactionfaction.com>
dateThu 18 Jan 2018, 18:32 (9 years ago)
parent37e36f3
src/lib/ProjectM36/TransactionGraph.hs+1−1
@@ -509,7 +509,7 @@ backtrackGraph graph currentTid (TransactionIdHeadBranchBacktrack steps) = do
509509backtrackGraph graph currentTid btrack@(TransactionStampHeadBacktrack stamp) = do
510510 trans <- transactionForId currentTid graph
511511 let parents = transactionParentIds trans
512− if transactionTimestamp trans < stamp then
512+ if transactionTimestamp trans <= stamp then
513513 pure currentTid
514514 else if S.null parents then
515515 Left RootTransactionTraversalError