alsa-pcm 0.6.1.1 → 0.6.1.2
raw patch · 5 files changed
+15/−14 lines, 5 filesdep ~containersPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: containers
API changes (from Hackage documentation)
- Sound.ALSA.PCM: SoundSink :: IO (handle y) -> handle y -> IO () -> handle y -> Ptr y -> Size -> IO () -> handle y -> IO () -> handle y -> IO () -> SoundSink handle y
+ Sound.ALSA.PCM: SoundSink :: IO (handle y) -> (handle y -> IO ()) -> (handle y -> Ptr y -> Size -> IO ()) -> (handle y -> IO ()) -> (handle y -> IO ()) -> SoundSink handle y
- Sound.ALSA.PCM: SoundSource :: IO (handle y) -> handle y -> IO () -> handle y -> IO () -> handle y -> IO () -> handle y -> Ptr y -> Size -> IO Size -> SoundSource handle y
+ Sound.ALSA.PCM: SoundSource :: IO (handle y) -> (handle y -> IO ()) -> (handle y -> IO ()) -> (handle y -> IO ()) -> (handle y -> Ptr y -> Size -> IO Size) -> SoundSource handle y
- Sound.ALSA.PCM.Node.ALSA: readi :: (SampleFmt y) => Handle Interleaved y -> Ptr y -> Size -> IO Size
+ Sound.ALSA.PCM.Node.ALSA: readi :: SampleFmt y => Handle Interleaved y -> Ptr y -> Size -> IO Size
- Sound.ALSA.PCM.Node.ALSA: readn :: (MonoSampleFmt y) => Handle Noninterleaved y -> Ptr (Ptr y) -> Size -> IO Size
+ Sound.ALSA.PCM.Node.ALSA: readn :: MonoSampleFmt y => Handle Noninterleaved y -> Ptr (Ptr y) -> Size -> IO Size
- Sound.ALSA.PCM.Node.ALSA: writei :: (SampleFmt y) => Handle Interleaved y -> Ptr y -> Size -> IO Size
+ Sound.ALSA.PCM.Node.ALSA: writei :: SampleFmt y => Handle Interleaved y -> Ptr y -> Size -> IO Size
- Sound.ALSA.PCM.Node.ALSA: writen :: (MonoSampleFmt y) => Handle Noninterleaved y -> Ptr (Ptr y) -> Size -> IO Size
+ Sound.ALSA.PCM.Node.ALSA: writen :: MonoSampleFmt y => Handle Noninterleaved y -> Ptr (Ptr y) -> Size -> IO Size
- Sound.ALSA.PCM.Node.File: close :: (SampleFmt y) => Handle y -> IO ()
+ Sound.ALSA.PCM.Node.File: close :: SampleFmt y => Handle y -> IO ()
- Sound.ALSA.PCM.Node.File: open :: (SampleFmt y) => IOMode -> FilePath -> IO (Handle y)
+ Sound.ALSA.PCM.Node.File: open :: SampleFmt y => IOMode -> FilePath -> IO (Handle y)
- Sound.ALSA.PCM.Node.File: read :: (SampleFmt y) => Handle y -> Ptr y -> Size -> IO Size
+ Sound.ALSA.PCM.Node.File: read :: SampleFmt y => Handle y -> Ptr y -> Size -> IO Size
- Sound.ALSA.PCM.Node.File: write :: (SampleFmt y) => Handle y -> Ptr y -> Size -> IO ()
+ Sound.ALSA.PCM.Node.File: write :: SampleFmt y => Handle y -> Ptr y -> Size -> IO ()
- Sound.ALSA.PCM.Parameters.Hardware: canMmapSampleResolution :: T i y (Bool)
+ Sound.ALSA.PCM.Parameters.Hardware: canMmapSampleResolution :: T i y Bool
- Sound.ALSA.PCM.Parameters.Hardware: canOverrange :: T i y (Bool)
+ Sound.ALSA.PCM.Parameters.Hardware: canOverrange :: T i y Bool
- Sound.ALSA.PCM.Parameters.Hardware: canPause :: T i y (Bool)
+ Sound.ALSA.PCM.Parameters.Hardware: canPause :: T i y Bool
- Sound.ALSA.PCM.Parameters.Hardware: canResume :: T i y (Bool)
+ Sound.ALSA.PCM.Parameters.Hardware: canResume :: T i y Bool
- Sound.ALSA.PCM.Parameters.Hardware: canSyncStart :: T i y (Bool)
+ Sound.ALSA.PCM.Parameters.Hardware: canSyncStart :: T i y Bool
- Sound.ALSA.PCM.Parameters.Hardware: getBufferSize :: T i y (Size)
+ Sound.ALSA.PCM.Parameters.Hardware: getBufferSize :: T i y Size
- Sound.ALSA.PCM.Parameters.Hardware: getBufferSizeMax :: T i y (Size)
+ Sound.ALSA.PCM.Parameters.Hardware: getBufferSizeMax :: T i y Size
- Sound.ALSA.PCM.Parameters.Hardware: getBufferSizeMin :: T i y (Size)
+ Sound.ALSA.PCM.Parameters.Hardware: getBufferSizeMin :: T i y Size
- Sound.ALSA.PCM.Parameters.Hardware: getChannels :: T i y (Word)
+ Sound.ALSA.PCM.Parameters.Hardware: getChannels :: T i y Word
- Sound.ALSA.PCM.Parameters.Hardware: getChannelsMax :: T i y (Word)
+ Sound.ALSA.PCM.Parameters.Hardware: getChannelsMax :: T i y Word
- Sound.ALSA.PCM.Parameters.Hardware: getChannelsMin :: T i y (Word)
+ Sound.ALSA.PCM.Parameters.Hardware: getChannelsMin :: T i y Word
- Sound.ALSA.PCM.Parameters.Hardware: getExportBuffer :: T i y (Bool)
+ Sound.ALSA.PCM.Parameters.Hardware: getExportBuffer :: T i y Bool
- Sound.ALSA.PCM.Parameters.Hardware: getFifoSize :: T i y (Word)
+ Sound.ALSA.PCM.Parameters.Hardware: getFifoSize :: T i y Word
- Sound.ALSA.PCM.Parameters.Hardware: getMinAlign :: T i y (Size)
+ Sound.ALSA.PCM.Parameters.Hardware: getMinAlign :: T i y Size
- Sound.ALSA.PCM.Parameters.Hardware: getRateResample :: T i y (Bool)
+ Sound.ALSA.PCM.Parameters.Hardware: getRateResample :: T i y Bool
- Sound.ALSA.PCM.Parameters.Hardware: getSbits :: T i y (Word)
+ Sound.ALSA.PCM.Parameters.Hardware: getSbits :: T i y Word
- Sound.ALSA.PCM.Parameters.Hardware: isBatch :: T i y (Bool)
+ Sound.ALSA.PCM.Parameters.Hardware: isBatch :: T i y Bool
- Sound.ALSA.PCM.Parameters.Hardware: isBlockTransfer :: T i y (Bool)
+ Sound.ALSA.PCM.Parameters.Hardware: isBlockTransfer :: T i y Bool
- Sound.ALSA.PCM.Parameters.Hardware: isDouble :: T i y (Bool)
+ Sound.ALSA.PCM.Parameters.Hardware: isDouble :: T i y Bool
- Sound.ALSA.PCM.Parameters.Hardware: isHalfDuplex :: T i y (Bool)
+ Sound.ALSA.PCM.Parameters.Hardware: isHalfDuplex :: T i y Bool
- Sound.ALSA.PCM.Parameters.Hardware: isJointDuplex :: T i y (Bool)
+ Sound.ALSA.PCM.Parameters.Hardware: isJointDuplex :: T i y Bool
- Sound.ALSA.PCM.Parameters.Hardware: setBufferSizeFirst :: Size -> T i y (Size)
+ Sound.ALSA.PCM.Parameters.Hardware: setBufferSizeFirst :: Size -> T i y Size
- Sound.ALSA.PCM.Parameters.Hardware: setBufferSizeLast :: Size -> T i y (Size)
+ Sound.ALSA.PCM.Parameters.Hardware: setBufferSizeLast :: Size -> T i y Size
- Sound.ALSA.PCM.Parameters.Hardware: setBufferSizeMax :: Size -> T i y (Size)
+ Sound.ALSA.PCM.Parameters.Hardware: setBufferSizeMax :: Size -> T i y Size
- Sound.ALSA.PCM.Parameters.Hardware: setBufferSizeMin :: Size -> T i y (Size)
+ Sound.ALSA.PCM.Parameters.Hardware: setBufferSizeMin :: Size -> T i y Size
- Sound.ALSA.PCM.Parameters.Hardware: setBufferSizeNear :: Size -> T i y (Size)
+ Sound.ALSA.PCM.Parameters.Hardware: setBufferSizeNear :: Size -> T i y Size
- Sound.ALSA.PCM.Parameters.Hardware: testBufferSize :: Size -> T i y (Errno)
+ Sound.ALSA.PCM.Parameters.Hardware: testBufferSize :: Size -> T i y Errno
- Sound.ALSA.PCM.Parameters.Hardware: testBufferTime :: Time -> Ordering -> T i y (Errno)
+ Sound.ALSA.PCM.Parameters.Hardware: testBufferTime :: Time -> Ordering -> T i y Errno
- Sound.ALSA.PCM.Parameters.Hardware: testChannels :: Word -> T i y (Errno)
+ Sound.ALSA.PCM.Parameters.Hardware: testChannels :: Word -> T i y Errno
- Sound.ALSA.PCM.Parameters.Hardware: testPeriodSize :: Size -> Ordering -> T i y (Errno)
+ Sound.ALSA.PCM.Parameters.Hardware: testPeriodSize :: Size -> Ordering -> T i y Errno
- Sound.ALSA.PCM.Parameters.Hardware: testPeriodTime :: Time -> Ordering -> T i y (Errno)
+ Sound.ALSA.PCM.Parameters.Hardware: testPeriodTime :: Time -> Ordering -> T i y Errno
- Sound.ALSA.PCM.Parameters.Hardware: testPeriods :: Word -> Ordering -> T i y (Errno)
+ Sound.ALSA.PCM.Parameters.Hardware: testPeriods :: Word -> Ordering -> T i y Errno
- Sound.ALSA.PCM.Parameters.Hardware: testRate :: SampleFreq -> Ordering -> T i y (Errno)
+ Sound.ALSA.PCM.Parameters.Hardware: testRate :: SampleFreq -> Ordering -> T i y Errno
- Sound.ALSA.PCM.Parameters.Hardware: testTickTime :: Time -> Ordering -> T i y (Errno)
+ Sound.ALSA.PCM.Parameters.Hardware: testTickTime :: Time -> Ordering -> T i y Errno
Files
- alsa-pcm.cabal +4/−4
- src/Sound/ALSA/PCM/Core/Handle.hsc +1/−1
- src/Sound/ALSA/PCM/Core/HwParams.hsc +1/−1
- src/Sound/ALSA/PCM/Core/Params.h +8/−7
- src/Sound/ALSA/PCM/Core/SwParams.hsc +1/−1
alsa-pcm.cabal view
@@ -1,5 +1,5 @@ Name: alsa-pcm-Version: 0.6.1.1+Version: 0.6.1.2 Copyright: Bjorn Bringert, Iavor S. Diatchki, Henning Thielemann Maintainer: Henning Thielemann <alsa@henning-thielemann.de> Author: Henning Thielemann <alsa@henning-thielemann.de>, Bjorn Bringert <bjorn@bringert.net>, Iavor S. Diatchki <iavor.diatchki@gmail.com>@@ -28,7 +28,7 @@ Source-Repository this type: darcs location: http://code.haskell.org/alsa/pcm/- tag: 0.6.1.1+ tag: 0.6.1.2 Flag buildExamples description: Build example executables@@ -85,8 +85,8 @@ Build-Depends: alsa-pcm, alsa-seq >=0.6 && <0.7,- containers >=0.2 && <0.7,- transformers >=0.2 && <0.6,+ containers >=0.2 && <0.8,+ transformers >=0.2 && <0.7, storablevector >=0.2.7 && <0.3, base Else
src/Sound/ALSA/PCM/Core/Handle.hsc view
@@ -67,7 +67,7 @@ instance Monoid Mode where mempty = Mode 0- mappend (Mode a) (Mode b) = Mode (a .|. b)+ mappend = (<>) modes :: [Mode] -> Mode modes = mconcat
src/Sound/ALSA/PCM/Core/HwParams.hsc view
@@ -45,7 +45,7 @@ Cons f <*> Cons x = Cons $ \h p -> f h p <*> x h p instance Monad (T i y) where- return a = Cons $ \ _h _p -> return a+ return = pure Cons x >>= k = Cons $ \h p -> x h p >>= \a -> case k a of Cons y -> y h p
src/Sound/ALSA/PCM/Core/Params.h view
@@ -1,8 +1,9 @@ #include <stdlib.h> #include <stdarg.h>+#include <alloca.h> -typedef char bool;-const bool false = 0, true = 1;+typedef char fmt_bool;+const fmt_bool fmt_false = 0, fmt_true = 1; enum context {pcm_params, params_only}; @@ -21,15 +22,15 @@ *dst = 0; } -void init_comma (bool *comma) {- *comma = false;+void init_comma (fmt_bool *comma) {+ *comma = fmt_false; } -void print_comma (bool *comma) {+void print_comma (fmt_bool *comma) { if (*comma) { printf(", "); }- *comma = true;+ *comma = fmt_true; } struct type {@@ -95,7 +96,7 @@ void hsc_accessor (enum result res, const char *name, enum context ctx, ...) { va_list arg; struct parameter *p;- bool comma;+ fmt_bool comma; char *camelName = alloca (strlen (name) + 1); make_camel_case (camelName, name);
src/Sound/ALSA/PCM/Core/SwParams.hsc view
@@ -39,7 +39,7 @@ Cons f <*> Cons x = Cons $ \h p -> f h p <*> x h p instance Monad (T i y) where- return a = Cons $ \ _h _p -> return a+ return = pure Cons x >>= k = Cons $ \h p -> x h p >>= \a -> case k a of Cons y -> y h p