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.
--