@@ -640,13 +640,13 @@ deep :: Sized a => Digit a -> FingerTree (Node a) -> Digit a -> Finge
640
640
deep pr m sf = Deep (size pr + size m + size sf) pr m sf
641
641
642
642
{-# INLINE pullL #-}
643
- pullL :: Sized a => Int -> FingerTree (Node a ) -> Digit a -> FingerTree a
643
+ pullL :: Int -> FingerTree (Node a ) -> Digit a -> FingerTree a
644
644
pullL s m sf = case viewLTree m of
645
645
Nothing2 -> digitToTree' s sf
646
646
Just2 pr m' -> Deep s (nodeToDigit pr) m' sf
647
647
648
648
{-# INLINE pullR #-}
649
- pullR :: Sized a => Int -> Digit a -> FingerTree (Node a ) -> FingerTree a
649
+ pullR :: Int -> Digit a -> FingerTree (Node a ) -> FingerTree a
650
650
pullR s pr m = case viewRTree m of
651
651
Nothing2 -> digitToTree' s pr
652
652
Just2 m' sf -> Deep s pr m' (nodeToDigit sf)
@@ -1840,7 +1840,7 @@ initsNode (Node3 s a b c) = Node3 s (One a) (Two a b) (Three a b c)
1840
1840
{-# SPECIALIZE tailsTree :: (FingerTree (Node a) -> Node b) -> FingerTree (Node a) -> FingerTree (Node b) #-}
1841
1841
-- | Given a function to apply to tails of a tree, applies that function
1842
1842
-- to every tail of the specified tree.
1843
- tailsTree :: ( Sized a , Sized b ) => (FingerTree a -> b ) -> FingerTree a -> FingerTree b
1843
+ tailsTree :: Sized a => (FingerTree a -> b ) -> FingerTree a -> FingerTree b
1844
1844
tailsTree _ Empty = Empty
1845
1845
tailsTree f (Single x) = Single (f (Single x))
1846
1846
tailsTree f (Deep n pr m sf) =
@@ -1855,7 +1855,7 @@ tailsTree f (Deep n pr m sf) =
1855
1855
{-# SPECIALIZE initsTree :: (FingerTree (Node a) -> Node b) -> FingerTree (Node a) -> FingerTree (Node b) #-}
1856
1856
-- | Given a function to apply to inits of a tree, applies that function
1857
1857
-- to every init of the specified tree.
1858
- initsTree :: ( Sized a , Sized b ) => (FingerTree a -> b ) -> FingerTree a -> FingerTree b
1858
+ initsTree :: Sized a => (FingerTree a -> b ) -> FingerTree a -> FingerTree b
1859
1859
initsTree _ Empty = Empty
1860
1860
initsTree f (Single x) = Single (f (Single x))
1861
1861
initsTree f (Deep n pr m sf) =
0 commit comments