X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=EsounD.git;a=blobdiff_plain;f=Sound%2FEsounD%2FMonitor.hs;h=0fadfd775bc3606dea15f08f3e24af6354a8facf;hp=7a06b80019820bd9c2c3c131103368268878a020;hb=d4df6ebbadb94400304178fa4827e189462b57ec;hpb=4570a37d1fc8f21a4ee1221c6ed289d281f1b005

diff --git a/Sound/EsounD/Monitor.hs b/Sound/EsounD/Monitor.hs
index 7a06b80..0fadfd7 100644
--- a/Sound/EsounD/Monitor.hs
+++ b/Sound/EsounD/Monitor.hs
@@ -22,7 +22,6 @@ import Control.Monad.Unicode
 import Data.Bits
 import Data.StorableVector      as S
 import Data.StorableVector.Lazy as L
-import Foreign.Storable
 import Network
 import Prelude.Unicode
 import Sound.EsounD.Streams
@@ -46,9 +45,6 @@ instance Dup (Monitor fr ch) where
 instance Stream (Monitor fr ch) where
     streamSampleRate = moRate
 
-toLSV ∷ Storable α ⇒ S.Vector α → L.Vector α
-toLSV v = L.fromChunks [v]
-
 instance Frame fr ⇒ ReadableStream (Monitor fr Mono) (L.Vector fr) where
     readFrames mo nFrames
         = liftIO $