From 624bf4e5008a94e903ecff233ce1230fdae15c50 Mon Sep 17 00:00:00 2001
From: Hans-Peter Deifel <hpd@hpdeifel.de>
Date: Fri, 8 Mar 2019 08:58:42 +0100
Subject: [PATCH] SumBag: Fix typo in rotate1
This caused erroneous calls to rotateDoubleRight instead of rotateSingleRight,
thus disbalancing the tree and possibly failing to pattern match.
---
src/Data/SumBag.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Data/SumBag.hs b/src/Data/SumBag.hs
index eaca38a..50226b8 100644
--- a/src/Data/SumBag.hs
+++ b/src/Data/SumBag.hs
@@ -135,7 +135,7 @@ balance1 a left right
let Node _ _ lleft lright = left
sizeLL = size lleft
sizeLR = size lright
- in if sizeLL < sizeLR then rotateSingleRight a left right else rotateDoubleRight a left right
+ in if sizeLR < sizeLL then rotateSingleRight a left right else rotateDoubleRight a left right
-- No subtree is too heavy, we can just form a new tree straight away
| otherwise = node a left right
--
GitLab