alsa-mixer 0.2.0 → 0.2.0.1
raw patch · 4 files changed
+17/−6 lines, 4 files
Files
- Sound/ALSA/Mixer.hs +3/−2
- Sound/ALSA/Mixer/Internal.chs +3/−3
- alsa-mixer.cabal +4/−1
- changelog +7/−0
Sound/ALSA/Mixer.hs view
@@ -10,7 +10,8 @@ -- -- This library provides bindings to the Advanced Linux Sound Architecture -- (ALSA) library API. The portability of this library is limited to--- systems with ALSA (i.e., Linux systems).+-- systems with ALSA (i.e., Linux systems). The functions in this library+-- throw errors of type 'Sound.ALSA.Exception.T' on failure. -- ----------------------------------------------------------------------------- @@ -310,7 +311,7 @@ > toggleMute :: IO () > toggleMute = > withMixer "default" $ \mixer ->-> do Just control <- getControlByName "default" "Master"+> do Just control <- getControlByName mixer "Master" > let Just playbackSwitch = playback $ switch control > Just sw <- getChannel FrontLeft playbackSwitch > setChannel FrontLeft playbackSwitch $ not sw
Sound/ALSA/Mixer/Internal.chs view
@@ -210,9 +210,9 @@ -- getMixerByName -- -------------------------------------------------------------------- --- | Perform an 'IO' action with the named mixer. An exception will be--- thrown if the named mixer cannot be found. A mixer named \"default\"--- should always exist.+-- | Perform an 'IO' action with the named mixer. An exception of type+-- 'Sound.ALSA.Exception.T' will be thrown if the named mixer cannot be+-- found. A mixer named \"default\" should always exist. withMixer :: String -> (Mixer -> IO a) -> IO a withMixer name f = bracket (do m <- open attach m name
alsa-mixer.cabal view
@@ -1,5 +1,5 @@ Name: alsa-mixer-Version: 0.2.0+Version: 0.2.0.1 Synopsis: Bindings to the ALSA simple mixer API. Description: This package provides bindings to the ALSA simple mixer API. License: BSD3@@ -10,6 +10,9 @@ Category: Sound Build-type: Simple Cabal-version: >=1.6+Homepage: https://github.com/ttuegel/alsa-mixer+Bug-reports: https://github.com/ttuegel/alsa-mixer/issues+Extra-source-files: changelog Source-repository head Type: git
+ changelog view
@@ -0,0 +1,7 @@+0.2.0.1 Thomas Tuegel <ttuegel@gmail.com> 2014-03-08+ * Correct documentation++0.2.0 Thomas Tuegel <ttuegel@gmail.com> 2014-03-02+ * Only release mixer from creating process+ * Use 'withMixer' to manage resource usage+ * Remove old TemplateHaskell definitions