[commit: packages/binary] master: Inline flush late to give the RULES a chanse to act (bbebc9a)

[git at git.haskell.org]

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

On branch  : master
Link       : http://git.haskell.org/packages/binary.git/commitdiff/bbebc9a58906a98cf8a734fc8c270ffc941ed654

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

commit bbebc9a58906a98cf8a734fc8c270ffc941ed654
Author: Lennart Kolmodin <kolmodin at google.com>
Date:   Thu Jul 30 18:55:21 2015 +0200

    Inline flush late to give the RULES a chanse to act
    
    RULE:
      append flush flush = flush


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

bbebc9a58906a98cf8a734fc8c270ffc941ed654
 src/Data/Binary/Builder/Base.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Data/Binary/Builder/Base.hs b/src/Data/Binary/Builder/Base.hs
index c4f0790..a1f46b5 100644
--- a/src/Data/Binary/Builder/Base.hs
+++ b/src/Data/Binary/Builder/Base.hs
@@ -191,6 +191,7 @@ flush = Builder $ \ k buf@(Buffer p o u l) ->
       else let !b  = Buffer p (o+u) 0 l
                !bs = S.PS p o u
            in return $! L.Chunk bs (inlinePerformIO (k b))
+{-# INLINE [0] flush #-}
 
 ------------------------------------------------------------------------