diff --git a/csound-expression-typed.cabal b/csound-expression-typed.cabal
--- a/csound-expression-typed.cabal
+++ b/csound-expression-typed.cabal
@@ -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
diff --git a/src/Csound/Typed/Control/Evt.hs b/src/Csound/Typed/Control/Evt.hs
--- a/src/Csound/Typed/Control/Evt.hs
+++ b/src/Csound/Typed/Control/Evt.hs
@@ -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)
diff --git a/src/Csound/Typed/GlobalState/Options.hs b/src/Csound/Typed/GlobalState/Options.hs
--- a/src/Csound/Typed/GlobalState/Options.hs
+++ b/src/Csound/Typed/GlobalState/Options.hs
@@ -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)
diff --git a/src/Csound/Typed/Render.hs b/src/Csound/Typed/Render.hs
--- a/src/Csound/Typed/Render.hs
+++ b/src/Csound/Typed/Render.hs
@@ -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