[commit: packages/containers] changelog-foldtree, cleaned_bugfix394, develop-0.6, develop-0.6-questionable, master, merge-doc-target, merge-fixes-5.9, merge-restrict-fix-5.8, revert-184-generic, revert-408-bugfix_394: Make sure the helper functions are inlined. (3e60f3a)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/containers

On branches: changelog-foldtree,cleaned_bugfix394,develop-0.6,develop-0.6-questionable,master,merge-doc-target,merge-fixes-5.9,merge-restrict-fix-5.8,revert-184-generic,revert-408-bugfix_394
Link       : http://git.haskell.org/packages/containers.git/commitdiff/3e60f3aa337ddf670a3f20586353c539f6b49eb4

>---------------------------------------------------------------

commit 3e60f3aa337ddf670a3f20586353c539f6b49eb4
Author: Milan Straka <fox at ucw.cz>
Date:   Mon Dec 15 08:15:42 2014 +0100

    Make sure the helper functions are inlined.


>---------------------------------------------------------------

3e60f3aa337ddf670a3f20586353c539f6b49eb4
 Data/Sequence.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Data/Sequence.hs b/Data/Sequence.hs
index d85cab6..fa80b3f 100644
--- a/Data/Sequence.hs
+++ b/Data/Sequence.hs
@@ -1391,8 +1391,11 @@ fromFunction len f | len < 0 = error "Data.Sequence.fromFunction called with neg
                               (createThree (i+(3+3*(trees'-2))*s))
       where
         createTwo j = Two (b j) (b (j + s))
+        {-# INLINE createTwo #-}
         createThree j = Three (b j) (b (j + s)) (b (j + 2*s))
+        {-# INLINE createThree #-}
         mb j = Node3 (3*s) (b j) (b (j + s)) (b (j + 2*s))
+        {-# INLINE mb #-}
 
 -- Splitting