openPlayer should accept Nothing for the hostname

[EsounD.git] / Sound / EsounD / Internals.hs

diff --git a/Sound/EsounD/Internals.hs b/Sound/EsounD/Internals.hs
index ef8c659ddd104d0646b9ca770800b6fcf2ab3f48..8d28ed8e346bf2aefcaf54d4459e6ef085f7da9c 100644 (file)
--- 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