synthino module for tidal-midi 0.8/0.9

Synthino.hs

module Sound.Tidal.MIDI.Synthino where

import Sound.Tidal.Params
import Sound.Tidal.MIDI.Control

keysController :: ControllerShape
keysController = ControllerShape { params = [
                            mCC attack_p 73,
                            mCC decay_p 75,
                            mCC sustain_p 79,
                            mCC release_p 72,
                            mCC waveform_p 70,
                            mCC pitchlforate_p 76,
                            mCC pitchlfodepth_p 1,
                            mCC lfowaveform_p 12,
                            mCC filterlforate_p 13,
                            mCC filterlfodepth_p 91,
                            mCC peak_p 71,
                            mCC kcutoff_p 74,
                            mCC bpm_p 16,
                            mCC arplength_p 17,
                            mCC arptranspose_p 18,
                            mCC vol_p 7,
                            mCC off_p 123
                          ],
                         --duration = ("dur", 0.05),
                         --velocity = ("vel", 0.5),
                         latency = 0.1
                       }

keys = toShape keysController

(waveform, waveform_p) = pF "waveform" (Just 0)
(pitchlforate, pitchlforate_p) = pF "pitchlforate" (Just 0)
(pitchlfodepth, pitchlfodepth_p) = pF "pitchlfodepth" (Just 0)
(lfowaveform, lfowaveform_p) = pF "lfowaveform" (Just 0)
(filterlforate, filterlforate_p) = pF "filterlforate" (Just 0)
(filterlfodepth, filterlfodepth_p) = pF "filterlfodepth" (Just 0)
(peak, peak_p) = pF "peak" (Just 0)
(kcutoff, kcutoff_p) = pF "kcutoff" (Just 0)
(bpm, bpm_p) = pF "bpm" (Just 0)
(arplength, arplength_p) = pF "arplength" (Just 0)
(arptranspose, arptranspose_p) = pF "arptranspose" (Just 0)
(vol, vol_p) = pF "vol" (Just 0)
(off, off_p) = pF "off" (Just 0)

can we move kcutoff to cutoff and vol to gain to have these generic?