tomato-rubato-openal 0.1.0.0 → 0.1.0.1

raw patch · 2 files changed

+10/−6 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• src/Sound/Tomato/Speakers.hs +9/−5
• tomato-rubato-openal.cabal +1/−1

@@ -24,6 +24,8 @@ import Control.Concurrent.STM import Data.Int (Int16) +import System.Info+ import qualified Data.Vector.Storable as V  -- Code heavily adapated from from YampaSynth@@ -187,11 +189,13 @@     buffer pSource $= Nothing     deleteObjectNames [pSource]     deleteObjectNames pBuffers-    currentContext $= Nothing-    printErrors-    destroyContext context-    b <- closeDevice device-    when (not b) $ fail "closing OpenAL device"+    when (False) $ do+        -- Not executing the code below fixes a crash on linux.+        -- It's unproblematic on OS X, too, so why bother.+        currentContext $= Nothing+        destroyContext context+        b <- closeDevice device+        when (not b) $ fail "closing OpenAL device"     printErrors  -- | Print all OpenAL errors if applicable

@@ -1,5 +1,5 @@ Name:               tomato-rubato-openal-Version:            0.1.0.0+Version:            0.1.0.1 Synopsis:           Easy to use library for audio programming. Description:   WARNING: This project is still in pre-alpha stage. For adventurers only!