readValue :: WAVEDict ->
              Int -> -- Offset
              WAVE_CHUNK -> -- Chunk type
              Int -> -- Count
              Iteratee [Word8] IO (Maybe WAVEDE_ENUM)
readValue _dict offset _ 0 = do
  throwErr . iterStrExc $ "Zero count in the entry of chunk at: " ++ show offset
  return Nothing
readValue :: WAVEDict ->
              Int -> -- Offset
              WAVE_CHUNK -> -- Chunk type
              Int -> -- Count
              Iteratee [Word8] IO (Maybe WAVEDE_ENUM)
readValue _dict offset _ 0 = do
  throwErr . iterStrExc $ "Zero count in the entry of chunk at: " ++ show offset
  return Nothing
readValue _dict offset _ 0 = do
  throwErr . iterStrExc $ "Zero count in the entry of chunk at: " ++ show offset
  return Nothing