WAVE 0.1 → 0.1.1

raw patch · 2 files changed

+9/−15 lines, 2 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• Data/WAVE.hs +6/−12
• WAVE.cabal +3/−3

@@ -19,8 +19,7 @@   WAVE(..), WAVEHeader(..), WAVESample, WAVESamples,   hGetWAVE, getWAVEFile,   hPutWAVE, putWAVEFile,-  sampleToDouble, doubleToSample,-  tile, collect+  sampleToDouble, doubleToSample ) where  import Control.Monad@@ -66,18 +65,13 @@ data WAVE = WAVE { waveHeader :: WAVEHeader,                    waveSamples :: WAVESamples } -tile :: Int -> Int -> [a] -> [[a]]-tile _ _ [] = []-tile n o s =-    let cur = take n s-        rest = drop (n - o) s in-    cur : (tile n o rest)--collect :: Int -> [a] -> [[a]]-collect n s = tile n 0 s- bits_to_bytes :: (Integral a) => a -> a bits_to_bytes n = (n + 7) `div` 8++collect :: Int -> [a] -> [[a]]+collect n [] = []+collect n s = h : collect n s'+    where (h, s') = splitAt n s  -- |Utility routine for working with audio data in floating -- point format.

@@ -1,14 +1,14 @@ Name: WAVE Description: Module for reading and writing audio files in the WAVE audio format. Build-Type: Simple-Version: 0.1+Version: 0.1.1 License: BSD3 License-File: COPYING Author: Bart Massey <bart@cs.pdx.edu> Copyright: Copyright (C) 2007 Bart Massey Maintainer: Bart Massey <bart@cs.pdx.edu>-Homepage: http://wiki.cs.pdx.edu/bartforge/wave-Category: Data+Homepage: http://wiki.cs.pdx.edu/bartforge/truelevel+Category: Data, Sound Build-Depends: base, bytestring Synopsis: WAVE audio file IO library Exposed-Modules: Data.WAVE