HCodecs 0.0.3 → 0.1
raw patch · 4 files changed
+11/−11 lines, 4 filesdep ~base
Dependency ranges changed: base
Files
- HCodecs.cabal +5/−5
- LICENSE +2/−2
- src/Data/Audio.hs +1/−1
- src/Tests/Main.hs +3/−3
HCodecs.cabal view
@@ -1,5 +1,5 @@ name: HCodecs-version: 0.0.3+version: 0.1 cabal-Version: >= 1.2 license: BSD3 license-file: LICENSE@@ -9,11 +9,11 @@ homepage: http://www.cs.nott.ac.uk/~ggg/ category: Codec stability: experimental-synopsis: The library to read, write and manipulate MIDI, WAVE, and SoundFont2 files.+synopsis: A library to read, write and manipulate MIDI, WAVE, and SoundFont2 files. description: The library provides functions to read, write and manipulate MIDI, WAVE and SoundFont2 multimedia files. It is written entirely in Haskell (without any FFI). It uses efficient parsing and building combinators for binary data stored in ByteStrings (based on the one in 'binary' package). .- Correctness of significant parts of library has been validated with QuickCheck and Haskell Program Coverage (HPC) tool-kit.+ Correctness of significant parts of the library has been validated with QuickCheck and Haskell Program Coverage (HPC) tool-kits. . HPC results can be seen at <http://www.cs.nott.ac.uk/~ggg/hpc/HCodecs/hpc_index.html>. build-type: Simple@@ -21,8 +21,8 @@ library hs-source-dirs: src- ghc-options : -O2 -Wall -fno-warn-name-shadowing- build-Depends: base, bytestring, QuickCheck, random, array+ ghc-options : -O3 -Wall -fno-warn-name-shadowing+ build-Depends: base < 5, bytestring, QuickCheck < 2, random, array exposed-modules: Codec.Midi Codec.Wav
LICENSE view
@@ -1,4 +1,4 @@-Copyright (c) 2007, George Giorgidze+Copyright (c) 2007-2008 George Giorgidze All rights reserved. @@ -12,7 +12,7 @@ this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. -- Neither the name of the copyright holder nor the names of its contributors+- Neither the name of the copyright holder nor the names of his contributors may be used to endorse or promote products derived from this software without specific prior written permission.
src/Data/Audio.hs view
@@ -75,7 +75,7 @@ => Arbitrary (Audio a) where arbitrary = do- sr <- choose (minBound, maxBound)+ sr <- choose (1, 44100 * 8) cn <- choose (1, 64) sn <- choose (1, 1024) >>= return . (fromIntegral cn *) sd <- arrayGen sn
src/Tests/Main.hs view
@@ -61,7 +61,7 @@ let (Midi SingleTrack _ trks) = toSingleTrack m in length (concat $ tracks m) - length (concat trks) == length (tracks m) - 1 - c <- readFile "midiFiles.txt"+ c <- readFile "mid.txt" let midiFiles = lines c sequence_ $ map f midiFiles return ()@@ -86,7 +86,7 @@ test $ roundTrip (Wav.buildWav :: Audio Int16 -> Builder) Wav.parseWav test $ roundTrip (Wav.buildWav :: Audio Int32 -> Builder) Wav.parseWav - c <- readFile "wavFiles.txt"+ c <- readFile "wav.txt" let wavFiles = lines c sequence_ $ map f wavFiles return ()@@ -113,7 +113,7 @@ test $ roundTrip SF.buildSoundFont SF.parseSoundFont - c <- readFile "soundFontFiles.txt"+ c <- readFile "sf2.txt" let soundFontFiles = lines c sequence_ $ map f soundFontFiles return ()