YampaSynth 0.1.1 → 0.1.2

raw patch · 2 files changed

+2/−2 lines, 2 files

Files

• YampaSynth.cabal +1/−1
• src/Player/OpenAL.hs +1/−1

@@ -1,5 +1,5 @@ name: YampaSynth-version: 0.1.1+version: 0.1.2 cabal-Version: >= 1.2 license: BSD3 license-file: LICENSE

@@ -117,7 +117,7 @@ process :: (Chunkable a) => Int -> Source -> [Buffer] -> [Buffer] -> MVar (Maybe (Chunk a)) -> MVar () -> IO () process sampleRate' pSource freeBuffers usedBuffers mVarMaybeChunk mVarReply = do   mChunk <- takeMVar mVarMaybeChunk-  void $ reply mChunk (\chunk -> do+  Foreign.void $ reply mChunk (\chunk -> do     mInd <- lastInd (/= 0) chunk -- we aren't sent chunks with leading zeros     (f,u) <- reply mInd (\ind -> do         (buff,newFree,newUsed) <- if null freeBuffers