wave 0.1.1 → 0.1.2

raw patch · 3 files changed

+9/−4 lines, 3 filesdep ~wave

Dependency ranges changed: wave

Files

• CHANGELOG.md +5/−0
• Codec/Audio/Wave.hs +2/−2
• wave.cabal +2/−2

@@ -1,3 +1,8 @@+## Wave 0.1.2++* Switched to using `withBinaryFile` instead of `withFile`, because the+  latter does nasty conversions on Windows, see docs for `openBinaryFile`.+ ## Wave 0.1.1  * Added `*.rf64` audio samples to the distribution to allow the tests pass.

@@ -376,7 +376,7 @@ readWaveFile :: MonadIO m   => FilePath          -- ^ Location of file to read   -> m Wave-readWaveFile path = liftIO . withFile path ReadMode $ \h -> do+readWaveFile path = liftIO . withBinaryFile path ReadMode $ \h -> do   let giveup f = throwIO (f path)       liftGet m = do         r <- m@@ -584,7 +584,7 @@   -> Wave              -- ^ Parameters of the WAVE file   -> (Handle -> IO ()) -- ^ Callback that will be used to write WAVE data   -> m ()-writeWaveFile path wave writeData = liftIO . withFile path WriteMode $ \h ->+writeWaveFile path wave writeData = liftIO . withBinaryFile path WriteMode $ \h ->   case waveFileFormat wave of     WaveVanilla -> writeWaveVanilla h wave writeData     WaveRF64    -> writeWaveRF64    h wave writeData

@@ -31,7 +31,7 @@ -- POSSIBILITY OF SUCH DAMAGE.  name:                 wave-version:              0.1.1+version:              0.1.2 cabal-version:        >= 1.10 license:              BSD3 license-file:         LICENSE.md@@ -83,7 +83,7 @@                     , data-default-class                     , hspec            >= 2.0    && < 3.0                     , temporary        >= 1.1    && < 1.3-                    , wave             >= 0.1.1+                    , wave             >= 0.1.2   if flag(dev)     ghc-options:      -Wall -Werror   else