convFunc :: AudioFormat -> Iteratee [Word8] IO [Double]
convFunc (AudioFormat _nc _sr 8) = fmap
  ((:[]) . normalize 8 . (fromIntegral :: Word8 -> Int8))
    Iter.head
convFunc :: AudioFormat -> Iteratee [Word8] IO [Double]
convFunc (AudioFormat _nc _sr 8) = fmap
  ((:[]) . normalize 8 . (fromIntegral :: Word8 -> Int8))
    Iter.head
convFunc (AudioFormat _nc _sr 8) = fmap
  ((:[]) . normalize 8 . (fromIntegral :: Word8 -> Int8))
    Iter.head