From c9354b7d7530d4384e43cbb6dd8e22b03bba1b3c Mon Sep 17 00:00:00 2001
From: Hans-Peter Deifel <hpd@hpdeifel.de>
Date: Fri, 8 Mar 2019 08:57:00 +0100
Subject: [PATCH] SumBag: Fix typos in error messages and comments

---
 src/Data/SumBag.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Data/SumBag.hs b/src/Data/SumBag.hs
index f118c8c..eaca38a 100644
--- a/src/Data/SumBag.hs
+++ b/src/Data/SumBag.hs
@@ -113,7 +113,7 @@ rotateSingleRight _ _ _ = error "rotateSingleRight called with empty left tree"
 
 rotateDoubleLeft :: Monoid a => Element a -> Tree a -> Tree a -> Tree a
 rotateDoubleLeft a x (Node _ c (Node _ b y1 y2) z) = node b (node a x y1) (node c y2 z)
-rotateDoubleLeft _ _ _ = error "rotateDoubleLeft called with too small left tree"
+rotateDoubleLeft _ _ _ = error "rotateDoubleLeft called with too small right tree"
 
 rotateDoubleRight :: Monoid a => Element a -> Tree a -> Tree a -> Tree a
 rotateDoubleRight c (Node _ a x (Node _ b y1 y2)) z = node b (node a x y1) (node c y2 z)
@@ -136,7 +136,7 @@ balance1 a left right
         sizeLL = size lleft
         sizeLR = size lright
     in if sizeLL < sizeLR then rotateSingleRight a left right else rotateDoubleRight a left right
-  -- No subtree is too heave, we can just form a new tree straight away
+  -- No subtree is too heavy, we can just form a new tree straight away
   | otherwise = node a left right
 
 addOnce :: Semigroup a => Element a -> Element a
-- 
GitLab