-instance Frame fr ⇒ Writable (Player fr Mono) (Lazy.Vector fr) where
- write pl v
- = liftIO $ sanitizeIOError $ Lazy.hPut (plHandle pl) v
+instance (Mux L.Vector fr ch, dvec ~ DemuxedVec L.Vector fr ch) ⇒ Writable (Player fr ch) dvec where
+ write pl dvec
+ = liftIO $ sanitizeIOError $ L.hPut (plHandle pl) (mux dvec)