okasaki

commit fe5e0b54c2c308affd898c68ecec3661540b469d
parent b39631fa0a5252fe6659125116260ef7790456f0
Author: Jared Tobin <jared@jtobin.ca>
Date:   Thu, 20 Nov 2014 23:33:01 +1300

Fix annoying spaces.

Diffstat:
M
LeftistHeap.hs
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/LeftistHeap.hs b/LeftistHeap.hs
@@ -55,7 +55,7 @@ fromList = foldr insert empty
 
 -- exercise 3.2 (define insert directly rather than by merge)
 altInsert :: Ord a => a -> Heap a -> Heap a
-altInsert e  Leaf            = singleton e
+altInsert e  Leaf = singleton e
 altInsert e0 (Node _ e1 l r)
     | rank l0 >= rank r0 = Node (succ (rank r0)) top l0 r0
     | otherwise          = Node (succ (rank l0)) top r0 l0