readRiff :: Iteratee [Word8] IO ()
readRiff = do
  cnt <- heads $ fmap (fromIntegral . ord) "RIFF"
  if cnt == 4 then return () else throwErr $ iterStrExc "Bad RIFF header"

-- | Read the WAVE part of the RIFF header.
readRiff :: Iteratee [Word8] IO ()
readRiff = do
  cnt <- heads $ fmap (fromIntegral . ord) "RIFF"
  if cnt == 4 then return () else throwErr $ iterStrExc "Bad RIFF header"

-- | Read the WAVE part of the RIFF header.
readRiff = do
  cnt <- heads $ fmap (fromIntegral . ord) "RIFF"
  if cnt == 4 then return () else throwErr $ iterStrExc "Bad RIFF header"

-- | Read the WAVE part of the RIFF header.