alsa-seq 0.6.0.9 → 0.6.0.10

raw patch · 4 files changed

+6/−11 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• alsa-seq.cabal +3/−3
• src/Sound/ALSA/Sequencer/Client.hs +0/−2
• src/Sound/ALSA/Sequencer/Marshal/Event.hsc +0/−1
• src/Sound/ALSA/Sequencer/Port/InfoMonad.hs +3/−5

@@ -1,6 +1,6 @@ Cabal-Version:  2.2 Name:           alsa-seq-Version:        0.6.0.9+Version:        0.6.0.10 Author:   Henning Thielemann <alsa@henning-thielemann.de>,   Dylan Simon <dylan@dylex.net>,@@ -31,7 +31,7 @@   location: http://code.haskell.org/alsa/seq/  Source-Repository this-  tag:      0.6.0.9+  tag:      0.6.0.10   type:     darcs   location: http://code.haskell.org/alsa/seq/ @@ -49,7 +49,7 @@     enumset >=0.0.5 && <0.2,     transformers >=0.2 && <0.7,     array >=0.1 && <0.6,-    bytestring >=0.9 && <0.12,+    bytestring >=0.9 && <0.13,     data-accessor >=0.2.2 && <0.3,     utility-ht >=0.0.7 && <0.1,     poll >=0.0 && <0.1,

@@ -43,8 +43,6 @@ getId :: Seq.T mode -> IO Client.T getId h = ClientInfo.get h ClientInfo.getClient --- cf. int snd_seq_client_id(snd_seq_t *handle);- -- | Set the name for the sequencer client. -- A convinience function. setName :: Seq.T mode -> String -> IO ()

@@ -480,7 +480,6 @@   where unknown = peekEmptyEv Unknown  --- maybe rename to NoteType for consistency with Type class data NoteEv   = ANote | NoteOn | NoteOff | KeyPress                 deriving (Show, Eq, Ord, Enum, Bounded) 

@@ -59,6 +59,7 @@ import qualified Sound.ALSA.Sequencer.Marshal.Sequencer as Seq  import qualified Control.Monad.Trans.Reader as MR+import Control.Exception (bracket) import Control.Applicative (Applicative, )  import Data.Word (Word, )@@ -75,11 +76,8 @@ get h p m = run m =<< PortInfo.get h p  modify :: Seq.T mode -> Port.T -> T a -> IO a-modify h p m = do-  i <- PortInfo.get h p-  a <- run m i-  PortInfo.set h p i-  return a+modify h p m =+   bracket (PortInfo.get h p) (PortInfo.set h p) (run m)   liftGet :: (PortInfo.T -> IO a) -> T a