Improve code style

Author: purefunctor

src/WAGS/Imperative/Create/Allpass.purs

@@ -27,7 +27,7 @@ allpass
   -> GraphBuilder p i o (T.GraphUnit id T.Allpass)
 allpass _ initialAllpass attributes = GraphBuilder go
   where
-  initializeAllpass = unwrap $ Parameters.toInitializeAllpass initialAllpass
+  { frequency, q } = unwrap $ Parameters.toInitializeAllpass initialAllpass
   go i@(Core.AudioInterpret { makeAllpass, setFrequency, setQ }) =
     { event:
         let
@@ -37,8 +37,8 @@ allpass _ initialAllpass attributes = GraphBuilder go
               { id
               , parent: nothing
               , scope: "imperative"
-              , frequency: initializeAllpass.frequency
-              , q: initializeAllpass.q
+              , frequency
+              , q
               }
           eventN = keepLatest $ attributes <#> unwrap >>> match
             { frequency: tmpResolveAU "imperative" i (setFrequency <<< { id, frequency: _ })

src/WAGS/Imperative/Create/Bandpass.purs

@@ -27,7 +27,7 @@ bandpass
   -> GraphBuilder p i o (T.GraphUnit id T.Bandpass)
 bandpass _ initialBandpass attributes = GraphBuilder go
   where
-  initializeBandpass = unwrap $ Parameters.toInitializeBandpass initialBandpass
+  { frequency, q } = unwrap $ Parameters.toInitializeBandpass initialBandpass
   go i@(Core.AudioInterpret { makeBandpass, setFrequency, setQ }) =
     { event:
         let
@@ -36,12 +36,12 @@ bandpass _ initialBandpass attributes = GraphBuilder go
             { id
             , parent: nothing
             , scope: "imperative"
-            , frequency: initializeBandpass.frequency
-            , q: initializeBandpass.q
+            , frequency
+            , q
             }
           eventN = keepLatest $ attributes <#> unwrap >>> match
-            { frequency: tmpResolveAU "imperative" i (setFrequency <<< { id, frequency: _ })
-            , q: tmpResolveAU "imperative" i (setQ <<< { id, q: _ })
+            { frequency: tmpResolveAU "imperative" i $ setFrequency <<< { id, frequency: _ }
+            , q: tmpResolveAU "imperative" i $ setQ <<< { id, q: _ }
             }
         in
           event0 <|> eventN

src/WAGS/Imperative/Create/Constant.purs

@@ -27,7 +27,7 @@ constant
   -> GraphBuilder p i o (T.GraphUnit id T.Constant)
 constant _ initialConstant attributes = GraphBuilder go
   where
-  initializeConstant = unwrap $ Parameters.toInitializeConstant initialConstant
+  { offset } = unwrap $ Parameters.toInitializeConstant initialConstant
   go i@(Core.AudioInterpret { makeConstant, setOffset, setOnOff }) =
     { event:
         let
@@ -36,7 +36,7 @@ constant _ initialConstant attributes = GraphBuilder go
             { id
             , parent: nothing
             , scope: "imperative"
-            , offset: initializeConstant.offset
+            , offset
             }
           eventN = keepLatest $ attributes <#> unwrap >>> match
             { offset: tmpResolveAU "imperative" i $ setOffset <<< { id, offset:_  }

src/WAGS/Imperative/Create/Convolver.purs

@@ -22,7 +22,7 @@ convolver
   -> GraphBuilder p i o (T.GraphUnit id T.Convolver)
 convolver _ initialConvolver = GraphBuilder go
   where
-  initializeConvolver = unwrap $ Parameters.toInitializeConvolver initialConvolver
+  { buffer } = unwrap $ Parameters.toInitializeConvolver initialConvolver
   go (Core.AudioInterpret { makeConvolver }) =
     { event:
         let
@@ -31,7 +31,7 @@ convolver _ initialConvolver = GraphBuilder go
             { id
             , parent: nothing
             , scope: "imperative"
-            , buffer: initializeConvolver.buffer
+            , buffer
             }
         in
           event0

src/WAGS/Imperative/Create/Delay.purs

@@ -27,7 +27,7 @@ delay
   -> GraphBuilder p i o (T.GraphUnit id T.Delay)
 delay _ initialDelay attributes = GraphBuilder go
   where
-  initializeDelay = unwrap $ Parameters.toInitializeDelay initialDelay
+  { delayTime, maxDelayTime } = unwrap $ Parameters.toInitializeDelay initialDelay
   go i@(Core.AudioInterpret { makeDelay, setDelay }) =
     { event:
         let
@@ -36,8 +36,8 @@ delay _ initialDelay attributes = GraphBuilder go
             { id
             , parent: nothing
             , scope: "imperative"
-            , delayTime: initializeDelay.delayTime
-            , maxDelayTime: initializeDelay.maxDelayTime
+            , delayTime
+            , maxDelayTime
             }
           eventN = keepLatest $ attributes <#> unwrap >>> match
             { delayTime: tmpResolveAU "imperative" i $ setDelay <<< { id, delayTime: _ }

src/WAGS/Imperative/Create/Gain.purs

@@ -32,7 +32,7 @@ gain
   -> GraphBuilder p i o (T.GraphUnit id T.Gain)
 gain _ initialGain attributes = GraphBuilder go
   where
-  initializeGain = unwrap $ Parameters.toInitializeGain initialGain
+  { gain } = unwrap $ Parameters.toInitializeGain initialGain
   go i@(Core.AudioInterpret { makeGain, setGain }) =
     { event:
         let
@@ -41,11 +41,11 @@ gain _ initialGain attributes = GraphBuilder go
             makeGain
               { id
               , parent: nothing
-              , gain: initializeGain.gain
+              , gain
               , scope: "imperative"
               }
           eventN = keepLatest $ attributes <#> unwrap >>> match
-            { gain: Common.resolveAU i (setGain <<< { id, gain: _ })
+            { gain: Common.resolveAU i $ setGain <<< { id, gain: _ }
             }
         in
           event0 <|> eventN

src/WAGS/Imperative/Create/Highpass.purs

@@ -27,7 +27,7 @@ highpass
   -> GraphBuilder p i o (T.GraphUnit id T.Highpass)
 highpass _ initialHighpass attributes = GraphBuilder go
   where
-  initializeHighpass = unwrap $ Parameters.toInitializeHighpass initialHighpass
+  { frequency, q } = unwrap $ Parameters.toInitializeHighpass initialHighpass
   go i@(Core.AudioInterpret { makeHighpass, setFrequency, setQ }) =
     { event:
         let
@@ -36,8 +36,8 @@ highpass _ initialHighpass attributes = GraphBuilder go
             { id
             , parent: nothing
             , scope: "imperative"
-            , frequency: initializeHighpass.frequency
-            , q: initializeHighpass.q
+            , frequency
+            , q
             }
           eventN = keepLatest $ attributes <#> unwrap >>> match
             { frequency: tmpResolveAU "imperative" i $ setFrequency <<< { id, frequency: _ }

src/WAGS/Imperative/Create/Highshelf.purs

@@ -27,7 +27,7 @@ highshelf
   -> GraphBuilder p i o (T.GraphUnit id T.Highshelf)
 highshelf _ initialHighshelf attributes = GraphBuilder go
   where
-  initializeHighshelf = unwrap $ Parameters.toInitializeHighshelf initialHighshelf
+  { frequency, gain } = unwrap $ Parameters.toInitializeHighshelf initialHighshelf
   go i@(Core.AudioInterpret { makeHighshelf, setFrequency, setGain }) =
     { event:
         let
@@ -36,8 +36,8 @@ highshelf _ initialHighshelf attributes = GraphBuilder go
             { id
             , parent: nothing
             , scope: "imperative"
-            , frequency: initializeHighshelf.frequency
-            , gain: initializeHighshelf.gain
+            , frequency
+            , gain
             }
           eventN = keepLatest $ attributes <#> unwrap >>> match
             { frequency: tmpResolveAU "imperative" i $ setFrequency <<< { id, frequency: _ }

src/WAGS/Imperative/Create/Lowpass.purs

@@ -27,7 +27,7 @@ lowpass
   -> GraphBuilder p i o (T.GraphUnit id T.Lowpass)
 lowpass _ initialLowpass attributes = GraphBuilder go
   where
-  initializeLowpass = unwrap $ Parameters.toInitializeLowpass initialLowpass
+  { frequency, q } = unwrap $ Parameters.toInitializeLowpass initialLowpass
   go i@(Core.AudioInterpret { makeLowpass, setFrequency, setQ }) =
     { event:
         let
@@ -36,8 +36,8 @@ lowpass _ initialLowpass attributes = GraphBuilder go
             { id
             , parent: nothing
             , scope: "imperative"
-            , frequency: initializeLowpass.frequency
-            , q: initializeLowpass.q
+            , frequency
+            , q
             }
           eventN = keepLatest $ attributes <#> unwrap >>> match
             { frequency: tmpResolveAU "imperative" i $ setFrequency <<< { id, frequency: _ }

src/WAGS/Imperative/Create/Lowshelf.purs

@@ -27,7 +27,7 @@ lowshelf
   -> GraphBuilder p i o (T.GraphUnit id T.Lowshelf)
 lowshelf _ initialLowshelf attributes = GraphBuilder go
   where
-  initializeLowshelf = unwrap $ Parameters.toInitializeLowshelf initialLowshelf
+  { frequency, gain } = unwrap $ Parameters.toInitializeLowshelf initialLowshelf
   go i@(Core.AudioInterpret { makeLowshelf, setFrequency, setGain }) =
     { event:
         let
@@ -36,8 +36,8 @@ lowshelf _ initialLowshelf attributes = GraphBuilder go
             { id
             , parent: nothing
             , scope: "imperative"
-            , frequency: initializeLowshelf.frequency
-            , gain: initializeLowshelf.gain
+            , frequency
+            , gain
             }
           eventN = keepLatest $ attributes <#> unwrap >>> match
             { frequency: tmpResolveAU "imperative" i $ setFrequency <<< { id, frequency: _ }