hunk ./Sound/Alsa/C2HS.hs 7
--- 
+--
hunk ./Sound/Alsa/C2HS.hs 9
---     this list of conditions and the following disclaimer. 
+--     this list of conditions and the following disclaimer.
hunk ./Sound/Alsa/C2HS.hs 12
---     documentation and/or other materials provided with the distribution. 
+--     documentation and/or other materials provided with the distribution.
hunk ./Sound/Alsa/C2HS.hs 14
---     derived from this software without specific prior written permission. 
+--     derived from this software without specific prior written permission.
hunk ./Sound/Alsa/C2HS.hs 19
---  NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 
+--  NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
hunk ./Sound/Alsa/C2HS.hs 31
---  This module provides the marshaling routines for Haskell files produced by 
+--  This module provides the marshaling routines for Haskell files produced by
hunk ./Sound/Alsa/C2HS.hs 39
-  -- * Re-export the language-independent component of the FFI 
+  -- * Re-export the language-independent component of the FFI
hunk ./Sound/Alsa/C2HS.hs 57
-) where 
+) where
hunk ./Sound/Alsa/C2HS.hs 80
-withIntConv   :: (Storable b, Integral a, Integral b) 
+withIntConv   :: (Storable b, Integral a, Integral b)
hunk ./Sound/Alsa/C2HS.hs 84
-withFloatConv :: (Storable b, RealFloat a, RealFloat b) 
+withFloatConv :: (Storable b, RealFloat a, RealFloat b)
hunk ./Sound/Alsa/C2HS.hs 88
-peekIntConv   :: (Storable a, Integral a, Integral b) 
+peekIntConv   :: (Storable a, Integral a, Integral b)
hunk ./Sound/Alsa/C2HS.hs 92
-peekFloatConv :: (Storable a, RealFloat a, RealFloat b) 
+peekFloatConv :: (Storable a, RealFloat a, RealFloat b)
hunk ./Sound/Alsa/C2HS.hs 181
-extractBitMasks bits = 
+extractBitMasks bits =
hunk ./Sound/Alsa/C2HS.hs 198
-{-# RULES 
+{-# RULES
hunk ./Sound/Alsa.hs 1
-module Sound.Alsa 
+module Sound.Alsa
hunk ./Sound/Alsa.hs 35
--- 
+--
hunk ./Sound/Alsa.hs 54
-data SoundSource handle = 
+data SoundSource handle =
hunk ./Sound/Alsa.hs 64
-data SoundSink handle = 
+data SoundSink handle =
hunk ./Sound/Alsa.hs 90
-nullSoundSink fmt = 
+nullSoundSink fmt =
hunk ./Sound/Alsa.hs 102
-withSoundSource source = 
+withSoundSource source =
hunk ./Sound/Alsa.hs 106
-withSoundSourceRunning src h = bracket_ (soundSourceStart src h) (soundSourceStop src h) 
+withSoundSourceRunning src h = bracket_ (soundSourceStart src h) (soundSourceStop src h)
hunk ./Sound/Alsa.hs 109
-withSoundSink sink = 
+withSoundSink sink =
hunk ./Sound/Alsa.hs 113
-withSoundSinkRunning src h = bracket_ (soundSinkStart src h) (soundSinkStop src h) 
+withSoundSinkRunning src h = bracket_ (soundSinkStart src h) (soundSinkStop src h)
hunk ./Sound/Alsa.hs 125
-audioBytesPerSample fmt = 
+audioBytesPerSample fmt =
hunk ./Sound/Alsa.hs 141
-soundSourceReadBytes src h buf n = 
+soundSourceReadBytes src h buf n =
hunk ./Sound/Alsa.hs 146
-soundSinkWriteBytes src h buf n = 
+soundSinkWriteBytes src h buf n =
hunk ./Sound/Alsa.hs 150
-copySound :: SoundSource h1 
-          -> SoundSink h2 
+copySound :: SoundSource h1
+          -> SoundSink h2
hunk ./Sound/Alsa.hs 154
-copySound source sink bufSize = 
+copySound source sink bufSize =
hunk ./Sound/Alsa.hs 168
-debug s = 
+debug s =
hunk ./Sound/Alsa.hs 174
-alsaOpen dev fmt stream = rethrowAlsaExceptions $ 
+alsaOpen dev fmt stream = rethrowAlsaExceptions $
hunk ./Sound/Alsa.hs 179
-       (buffer_time,buffer_size,period_time,period_size) <- 
+       (buffer_time,buffer_size,period_time,period_size) <-
hunk ./Sound/Alsa.hs 201
-setHwParams :: Pcm 
-            -> PcmFormat 
+setHwParams :: Pcm
+            -> PcmFormat
hunk ./Sound/Alsa.hs 207
-            -> IO (Int,Int,Int,Int) 
+            -> IO (Int,Int,Int,Int)
hunk ./Sound/Alsa.hs 215
-       (buffer_time,_) <- 
+       (buffer_time,_) <-
hunk ./Sound/Alsa.hs 218
-       (period_time,_) <- 
+       (period_time,_) <-
hunk ./Sound/Alsa.hs 223
-setSwParams :: Pcm 
-            -> Int -- ^ buffer size 
+setSwParams :: Pcm
+            -> Int -- ^ buffer size
hunk ./Sound/Alsa.hs 227
-setSwParams h buffer_size period_size = withSwParams h $ \p -> 
-    do let start_threshold = 
+setSwParams h buffer_size period_size = withSwParams h $ \p ->
+    do let start_threshold =
hunk ./Sound/Alsa.hs 239
-withHwParams h f = 
+withHwParams h f =
hunk ./Sound/Alsa.hs 248
-withSwParams h f = 
+withSwParams h f =
hunk ./Sound/Alsa.hs 257
-alsaClose pcm = rethrowAlsaExceptions $ 
+alsaClose pcm = rethrowAlsaExceptions $
hunk ./Sound/Alsa.hs 263
-alsaStart pcm = rethrowAlsaExceptions $ 
+alsaStart pcm = rethrowAlsaExceptions $
hunk ./Sound/Alsa.hs 271
-alsaStop pcm = rethrowAlsaExceptions $ 
+alsaStop pcm = rethrowAlsaExceptions $
hunk ./Sound/Alsa.hs 276
-alsaRead fmt h buf n = rethrowAlsaExceptions $ 
+alsaRead fmt h buf n = rethrowAlsaExceptions $
hunk ./Sound/Alsa.hs 280
-	if n' < n 
+	if n' < n
hunk ./Sound/Alsa.hs 290
-alsaWrite fmt h buf n = rethrowAlsaExceptions $ 
+alsaWrite fmt h buf n = rethrowAlsaExceptions $
hunk ./Sound/Alsa.hs 295
-alsaWrite_ fmt h buf n = 
+alsaWrite_ fmt h buf n =
hunk ./Sound/Alsa.hs 310
-alsaSoundSource dev fmt = 
+alsaSoundSource dev fmt =
hunk ./Sound/Alsa.hs 320
-alsaSoundSink dev fmt = 
+alsaSoundSink dev fmt =
hunk ./Sound/Alsa.hs 342
-fileSoundSource file fmt = 
+fileSoundSource file fmt =
hunk ./Sound/Alsa.hs 350
-fileSoundSink file fmt = 
+fileSoundSink file fmt =
hunk ./Sound/Alsa/Sequencer/Event.hs 74
--- If the input buffer is empty and the boolean argumen is true,
+-- If the input buffer is empty and the boolean argument is true,
hunk ./Sound/Alsa/Sequencer/Event.hs 90
--- | Output an event and dain the buffer, if it bacame full.
--- Thorws exceptions.
+-- | Output an event and drain the buffer, if it became full.
+-- Throws exceptions.
hunk ./alsa.cabal 6
+Category: Sound, Music
hunk ./alsa.cabal 9
-build-depends: base, array
+Build-depends:
+  base >= 3,
+  array >= 0.1 && <0.3
+Stability: Experimental
hunk ./alsa.cabal 17
-Ghc-options: -O2 -Wall
-Exposed-Modules: Sound.Alsa,
-                 Sound.Alsa.Core,
-                 Sound.Alsa.Error,
-                 Sound.Alsa.Sequencer,
-                 Sound.Alsa.Sequencer.Client,
-                 Sound.Alsa.Sequencer.Port
-                 Sound.Alsa.Sequencer.Event
-                 Sound.Alsa.Sequencer.Queue
+Description:
+  This package provides access to
+  .
+   * ALSA sequencer (MIDI support)
+  .
+   * ALSA realtime audio signal input and output
hunk ./alsa.cabal 24
-Other-modules: Sound.Alsa.C2HS,
-               Sound.Alsa.Sequencer.Marshal,
-               Sound.Alsa.Sequencer.Area,
-               Sound.Alsa.Sequencer.Errors,
-               Sound.Alsa.Sequencer.Sequencer
+Ghc-options: -Wall
+Exposed-Modules:
+  Sound.Alsa
+  Sound.Alsa.Core
+  Sound.Alsa.Error
+  Sound.Alsa.Sequencer
+  Sound.Alsa.Sequencer.Client
+  Sound.Alsa.Sequencer.Port
+  Sound.Alsa.Sequencer.Event
+  Sound.Alsa.Sequencer.Queue
+
+Other-modules:
+  Sound.Alsa.C2HS
+  Sound.Alsa.Sequencer.Marshal
+  Sound.Alsa.Sequencer.Area
+  Sound.Alsa.Sequencer.Errors
+  Sound.Alsa.Sequencer.Sequencer
+
+Extra-Source-Files:
+  examples/duplex.hs
+  examples/play.hs
+  examples/record.hs
+  examples/volume_meter.hs
+  examples/Makefile
addfile ./tests/Setup.lhs
hunk ./tests/Setup.lhs 1
+#!/usr/bin/env runghc
+
+> module Main where
+
+> import Distribution.Simple
+
+> main :: IO ()
+> main = defaultMain
hunk ./tests/alsa-seq-tests.cabal 7
-Category:       Sound
-Synopsis:       Tests for the ALSA sequencer libraray.
+Category:       Sound, Music
+Synopsis:       Tests for the ALSA sequencer library.
+Description:    Tests for the ALSA sequencer library.
hunk ./tests/alsa-seq-tests.cabal 15
-  Build-Depends:  base, alsa == 0.2
+  Build-Depends:  base >=3, alsa == 0.2
hunk ./tests/alsa-seq-tests.cabal 19
-  Build-Depends:  base, alsa == 0.2
+  Build-Depends:  base >=3, alsa == 0.2
hunk ./tests/alsa-seq-tests.cabal 23
-  Build-Depends:  base, alsa == 0.2
+  Build-Depends:  base >=3, alsa == 0.2
hunk ./tests/alsa-seq-tests.cabal 27
-  Build-Depends:  base, alsa == 0.2
+  Build-Depends:  base >=3, alsa == 0.2
hunk ./tests/alsa-seq-tests.cabal 31
-  Build-Depends:  base, alsa == 0.2
+  Build-Depends:  base >=3, alsa == 0.2