diff --git a/csound-catalog.cabal b/csound-catalog.cabal
--- a/csound-catalog.cabal
+++ b/csound-catalog.cabal
@@ -1,6 +1,6 @@
 Name:          csound-catalog
-Version:       0.7.6
-Cabal-Version: >= 1.22
+Version:       0.7.6.1
+Cabal-Version: 1.12
 License:       BSD3
 License-file:  LICENSE
 Author:	       Anton Kholomiov
@@ -12,7 +12,7 @@
 Maintainer:    <anton.kholomiov@gmail.com>
 
 Description:
-    A gallery of Csound instruments.
+    A gallery of Csound instruments and useful utils and examples.
 
 
 Extra-Source-Files :
@@ -29,8 +29,8 @@
   Build-Depends:
         base >= 4, base < 5,
         transformers >= 0.3,
-        csound-expression >= 5.4.0,
-        csound-sampler >=0.0.10.0,
+        csound-expression >= 5.4.3.1,
+        csound-sampler >=0.0.10.2,
         sharc-timbre
   Hs-Source-Dirs:      src/
   Default-language: Haskell2010
diff --git a/src/Csound/Catalog/Wave/WoodwindAlg.hs b/src/Csound/Catalog/Wave/WoodwindAlg.hs
--- a/src/Csound/Catalog/Wave/WoodwindAlg.hs
+++ b/src/Csound/Catalog/Wave/WoodwindAlg.hs
@@ -19,11 +19,10 @@
     fmap f (Rnd a) = Rnd $ fmap f a
 
 instance Applicative Rnd where
-    pure = return
+    pure = Rnd . pure
     (<*>) = ap
 
 instance Monad Rnd where
-    return = Rnd . return
     (Rnd a) >>= f = Rnd $ a >>= unRnd . f
 
 evalRnd :: Rnd a -> D -> a
diff --git a/src/Csound/Patch.hs b/src/Csound/Patch.hs
--- a/src/Csound/Patch.hs
+++ b/src/Csound/Patch.hs
@@ -844,7 +844,9 @@
 
 scrapem k m = fx1 0.15 largeHall2 $ monoSynt $ (\(amp, cps) -> (mul (0.75 * amp * k * fades 0.5 1.97) . at fromMono . C.scrapeModes m) cps) . monoArgToNote
 
-scrapePad k m = fx1 0.15 largeHall2 $ polySynt $ \x@(amp, cps) -> (mul (0.75 * sig amp * k * fades 0.5 (scrapeRelease x 2.27  )) . at fromMono . C.scrapeModes m) (sig cps)
+scrapePad k m =
+  fx1 0.15 largeHall2 $
+    polySynt $ \x@(amp, cps) -> (mul (0.75 * sig amp * k * fades 0.5 (scrapeRelease x 2.27)) . at fromMono . C.scrapeModes m) (sig cps)
 
 scrapePadm k m = fx1 0.15 largeHall2 $ monoSynt $ (\(amp, cps) -> (mul (0.75 * amp * k * fades 0.5 2.27) . at fromMono . C.scrapeModes m) cps) . monoArgToNote
 
@@ -1249,7 +1251,7 @@
 
 pulseWidth = fx1 0.15 smallHall2 $ polySynt $ mul (0.75 * 0.6) . at fromMono . mul (fades 0.07 0.1). onCps (uncurry C.pulseWidth)
 
-xanadu = fx1 0.27 largeHall2 $polySynt $ mul (1.2 * 0.6) . at fromMono . mul (fades 0.01 2.2). onCps C.xanadu1
+xanadu = fx1 0.27 largeHall2 $ polySynt $ mul (1.2 * 0.6) . at fromMono . mul (fades 0.01 2.2). onCps C.xanadu1
 
 alienIsAngry = fx1 0.15 smallRoom2 $ polySynt $ at fromMono . mul (0.5 * fades 0.01 2.3). onCps (C.fmMod 5)