csound-expression-typed 0.2.6 → 0.2.7

raw patch · 4 files changed

+6/−6 lines, 4 filesdep ~basedep ~csound-expression-dynamicPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base, csound-expression-dynamic

API changes (from Hackage documentation)

Files

• csound-expression-typed.cabal +1/−1
• src/Csound/Typed/Control/Evt.hs +1/−1
• src/Csound/Typed/GlobalState/Options.hs +1/−1
• src/Csound/Typed/Render.hs +3/−3

@@ -1,5 +1,5 @@ Name:          csound-expression-typed-Version:       0.2.6+Version:       0.2.7 Cabal-Version: >= 1.22 License:       BSD3 License-file:  LICENSE

@@ -277,7 +277,7 @@ monoSchedUntil evts stop = do     ref <- newRef (MonoArg 0 0 0 0)     clearTrig ref-    runEvt (fmap Left evts <> fmap Right stop) (go ref)+    runEvt (mappend (fmap Left evts) (fmap Right stop)) (go ref)     readRef ref     where         go ref = either (ons ref) (const $ offs ref)

@@ -79,7 +79,7 @@     , csdTabFi          = csdTabFi a <|> csdTabFi b     , csdScaleUI        = csdScaleUI a <|> csdScaleUI b     , csdJacko          = csdJacko a <|> csdJacko b-    , csdJackConnect    = csdJackConnect a <> csdJackConnect b+    , csdJackConnect    = mappend (csdJackConnect a) (csdJackConnect b)     , csdTrace          = csdTrace a <|> csdTrace b }  defScaleUI :: Options -> (Double, Double)

@@ -59,7 +59,7 @@  renderOutBy_ :: Options -> SE () -> IO String renderOutBy_ options sigs = do-    finalOptions <- fmap (maybe options (options <> )) getUserOptions+    finalOptions <- fmap (maybe options (options `mappend` )) getUserOptions     evalGE finalOptions $ fmap renderCsd $ toCsd Nothing finalOptions (fmap (const unit) sigs)  renderOut :: Sigs a => SE a -> IO String@@ -67,7 +67,7 @@  renderOutBy :: Sigs a => Options -> SE a -> IO String renderOutBy options sigs = do-    finalOptions <- fmap (maybe options (options <> )) getUserOptions+    finalOptions <- fmap (maybe options (options `mappend` )) getUserOptions     evalGE finalOptions $ fmap renderCsd $ toCsd Nothing finalOptions sigs  renderEff :: (Sigs a, Sigs b) => (a -> SE b) -> IO String@@ -75,7 +75,7 @@  renderEffBy :: (Sigs a, Sigs b) => Options -> (a -> SE b) -> IO String renderEffBy options eff = do-    finalOptions <- fmap (maybe options (options <> )) getUserOptions+    finalOptions <- fmap (maybe options (options `mappend` )) getUserOptions     evalGE finalOptions $ fmap renderCsd $ toCsd (Just (arityIns $ funArity eff)) finalOptions (eff =<< getIns)  renderHistory :: Maybe Int -> Int -> Options -> GE Csd