X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=Sound%2FEsounD%2FInternals.hs;fp=Sound%2FEsounD%2FInternals.hs;h=8d28ed8e346bf2aefcaf54d4459e6ef085f7da9c;hb=d6ea0404a5d1fc5356a5b121b45f277d735359ad;hp=ef8c659ddd104d0646b9ca770800b6fcf2ab3f48;hpb=bb3dbc2442352e09bafe4415d3784f7f61230b17;p=EsounD.git

diff --git a/Sound/EsounD/Internals.hs b/Sound/EsounD/Internals.hs
index ef8c659..8d28ed8 100644
--- a/Sound/EsounD/Internals.hs
+++ b/Sound/EsounD/Internals.hs
@@ -52,6 +52,7 @@ data Stereo
 instance Channels Stereo where
     channelFmt _ = c'ESD_STEREO
 
+{-# INLINE interleave #-}
 interleave ∷ Frame fr ⇒ L.Vector fr → L.Vector fr → L.Vector fr
 interleave l r
     -- THINKME: consider using storablevector-streamfusion