csound-expression 5.4.2 → 5.4.3

raw patch · 4 files changed

+8/−8 lines, 4 filesdep ~basedep ~csound-expression-dynamicdep ~csound-expression-typedPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base, csound-expression-dynamic, csound-expression-typed

API changes (from Hackage documentation)

Files

• csound-expression.cabal +2/−2
• src/Csound/Control/Gui/Widget.hs +1/−1
• src/Csound/IO.hs +4/−4
• src/Csound/Options.hs +1/−1

@@ -1,5 +1,5 @@ Name:          csound-expression-Version:       5.4.2+Version:       5.4.3 cabal-version: >= 1.22 License:       BSD3 License-file:  LICENSE@@ -85,7 +85,7 @@         colour >= 2.0,         transformers >= 0.3,         containers,-        csound-expression-typed >= 0.2.6,+        csound-expression-typed >= 0.2.7,         csound-expression-dynamic >= 0.3.8,         temporal-media >= 0.6.3,         csound-expression-opcodes >= 0.0.5.1

@@ -342,7 +342,7 @@ rangeEvt1 widget isInit range initVal = mapSource (addInit . snaps) $ rangeSig1 widget range initVal     where         addInit-            | isInit    = ((devt (int initVal) loadbang) <> )+            | isInit    = ((devt (int initVal) loadbang) `mappend` )             | otherwise = id  -- | 2d range range slider. Outputs a pair of event streams.

@@ -251,7 +251,7 @@     writeCsdBy opt "tmp.csd" a     runWithUserInterrupt (postSetup opt') $ unwords ["csound tmp.csd", logTrace opt']     where-      opt = opt' <> withDac <> withAdc+      opt = mconcat [opt', withDac, withAdc]        withDac         | hasJackConnections opt' = setDacBy "null"@@ -282,7 +282,7 @@ -- | Renders to file @tmp.csd@ and invokes the csound on it. csdBy :: (RenderCsd a) => Options -> a -> IO () csdBy options a = do-    writeCsdBy (setSilent <> options) "tmp.csd" a+    writeCsdBy (setSilent `mappend` options) "tmp.csd" a     runWithUserInterrupt (postSetup options) $ unwords ["csound tmp.csd", logTrace options]  postSetup :: Options -> IO ()@@ -295,7 +295,7 @@                                          _  -> void $ runCommand $ jackCmd conns   | otherwise                        = pure ()   where-    addSleep = ("sleep 0.1; " <> )+    addSleep = ("sleep 0.1; " `mappend` )      jackCmd = addSleep . L.intercalate ";" . fmap jackConn     jackConn (port1, port2) = unwords ["jack_connect", port1, port2]@@ -351,7 +351,7 @@ runCabbageBy opt' a = do     writeCsdBy opt "tmp.csd" a     runWithUserInterrupt (pure ()) $ "Cabbage tmp.csd"-    where opt = opt' <> setCabbage+    where opt = opt' `mappend` setCabbage  ------------------------------ 

@@ -155,7 +155,7 @@  -- | Provides options for Cabbage VST-engine. setCabbage :: Options-setCabbage = setRates 48000 64 <> setNoRtMidi <> setMidiDevice "0"+setCabbage = mconcat [setRates 48000 64, setNoRtMidi, setMidiDevice "0"]     where setNoRtMidi = def { csdFlags = def { rtmidi = Just NoRtmidi, audioFileOutput = def { nosound = True } }}  -- | Defines what ports we should connect after application is launched