Fix duplicate block error

IntersectMBO · Oct 14, 2021 · 3244041 · 3244041
1 parent a6addd8
commit 3244041
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/plutus-chain-index/src/Plutus/ChainIndex/Types.hs b/plutus-chain-index/src/Plutus/ChainIndex/Types.hs
@@ -127,7 +127,7 @@ instance Monoid Tip where
 instance Ord Tip where
     TipAtGenesis <= _            = True
     _            <= TipAtGenesis = False
-    (Tip ls _ _) <= (Tip rs _ _) = ls <= rs
+    (Tip _ _ lb) <= (Tip _ _ rb) = lb <= rb
 
 instance Pretty Tip where
     pretty TipAtGenesis = "TipAtGenesis"