[commit: packages/containers] develop-0.6, develop-0.6-questionable, master: Make sure the helper functions are inlined. (3e60f3a)

git at git.haskell.org git at git.haskell.org
Fri Jan 23 22:42:25 UTC 2015


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

On branches: develop-0.6,develop-0.6-questionable,master
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
 



More information about the ghc-commits mailing list