From 37a15c97e6882e59131bf22921ebe6ebb583067c Mon Sep 17 00:00:00 2001
From: Aneurin Barker Snook <a@aneur.in>
Date: Sun, 9 Jul 2017 11:59:08 +0100
Subject: [PATCH] forgot to add haddeo defs

---
 snippets-override/haskell-mode/livesetup | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/snippets-override/haskell-mode/livesetup b/snippets-override/haskell-mode/livesetup
index 4ba24ed..7fb185d 100644
--- a/snippets-override/haskell-mode/livesetup
+++ b/snippets-override/haskell-mode/livesetup
@@ -9,7 +9,14 @@ let bpm b = cps (b/60)
     bassP = (# gain 0.7) . (# hcutoff 485) . (# hresonance 0.001)
     cf = slow 2
     every' n o f = when ((== (o-1)) . (\`mod\` n)) f
+    withmod a b c d = (whenmod a b . within (c, d))
+    tmod s e = (# nudge (scale 0 s $ fmap (**e) saw1))
+    swing a = within (0.1, 0.4) (a ~>) . within (0.6, 0.9) (a ~>)
+    -- given bpm = 105
+    tmod' s e = tmod (s*(1/(105/60))) e
+    mt i = slow 16 $ tmod' 0.5 3 $ density 16 $ i
     d'drum = d1
+    d'hi = d2
     d'perc = d2
     d'print = d2
     d'wobb = d2
@@ -23,13 +30,16 @@ let bpm b = cps (b/60)
     d'hand = d4
     -- d'jbass = d4
     d'qs = d4
+    d'wax = d4
     d'fly = d5
     d'gt = d5
     d'mons = d5
+    d'nim = d5
     d'warb = d5
     d'bass2 = d6
     d'bz = d6
     d'gt2 = d6
+    -- d'hi = d6
     d'udu = d6
     d'arpy = d7
     d'casio = d7
@@ -37,13 +47,16 @@ let bpm b = cps (b/60)
     d'pc = d7
     d'shard = d7
     d'arm = d8
+    d'fx1 = d8
     d'misc = d8
     d'pcl = d8
     d'ql = d8
     d'tr = d8
     d'ant = d9
     d'baa = d9
+    d'fx2 = d9
     d'tac = d9
     d'wbass = d9
     d'cymb = d10
+    d'fx3 = d10
     d'jbass = d10