renderAnswer :: Map String AudioBuffer -> Config -> (SourceNodeSpec,Maybe Time) -> Maybe Answer -> Synth ()
renderAnswer _ db (src, dur) (Just freq) = buildSynth $ do
  let env = maybe (return EmptyGraph) (unitRectEnv (Millis 1)) dur
  synthSource src >> gain (Db $ -10)
  biquadFilter $ Peaking (Hz $ freqAsDouble $ frequency freq) 1.4 (Db db)
  env
  destination
  maybeDelete (fmap (+Sec 0.2) dur)
renderAnswer :: Map String AudioBuffer -> Config -> (SourceNodeSpec,Maybe Time) -> Maybe Answer -> Synth ()
renderAnswer _ db (src, dur) (Just freq) = buildSynth $ do
  let env = maybe (return EmptyGraph) (unitRectEnv (Millis 1)) dur
  synthSource src >> gain (Db $ -10)
  biquadFilter $ Peaking (Hz $ freqAsDouble $ frequency freq) 1.4 (Db db)
  env
  destination
  maybeDelete (fmap (+Sec 0.2) dur)
renderAnswer _ db (src, dur) (Just freq) = buildSynth $ do
  let env = maybe (return EmptyGraph) (unitRectEnv (Millis 1)) dur
  synthSource src >> gain (Db $ -10)
  biquadFilter $ Peaking (Hz $ freqAsDouble $ frequency freq) 1.4 (Db db)
  env
  destination
  maybeDelete (fmap (+Sec 0.2) dur)