X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=EsounD.git;a=blobdiff_plain;f=Sound%2FEsounD%2FFilter.hs;h=26b6336fe417b52c1a4884d2a02c53632585e980;hp=21413647b2fc5e728fc03a98c221d1ef46edbf03;hb=080d77f8aece1d14f71f6fd337f0cda9cdf7d740;hpb=808cc2f4700bc0b2f77cee443dd237d415b4d5d7

diff --git a/Sound/EsounD/Filter.hs b/Sound/EsounD/Filter.hs
index 2141364..26b6336 100644
--- a/Sound/EsounD/Filter.hs
+++ b/Sound/EsounD/Filter.hs
@@ -67,11 +67,17 @@ instance Frame fr ⇒ ReadableStream (Filter fr Stereo) (L.Vector fr, L.Vector f
 
 instance Frame fr ⇒ WritableStream (Filter fr Mono) (L.Vector fr) where 
     writeFrames fi v
-        = liftIO $ sanitizeIOError $ L.hPut (fiHandle fi) v
+        = liftIO $
+          sanitizeIOError $
+          do L.hPut (fiHandle fi) v
+             hFlush (fiHandle fi) 
 
 instance Frame fr ⇒ WritableStream (Filter fr Stereo) (L.Vector fr, L.Vector fr) where
     writeFrames fi (l, r)
-        = liftIO $ sanitizeIOError $ L.hPut (fiHandle fi) (interleave l r)
+        = liftIO $
+          sanitizeIOError $
+          do L.hPut (fiHandle fi) (interleave l r)
+             hFlush (fiHandle fi)
 
 -- | Open an ESD handle for filtering sound produced by ESD.
 --