Apply review suggestion

Co-authored-by: Lara Herzog <[email protected]>
clash-lang · Mar 11, 2024 · 3bff45a · 3bff45a
1 parent 8d61823
commit 3bff45a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Protocols/Internal.hs b/src/Protocols/Internal.hs
@@ -623,7 +623,7 @@ instance (C.NFDataX a, C.ShowX a, Show a, C.KnownDomain dom) => Drivable (CSigna
     Circuit ( \_ -> ((), fwd1) )
 
   sampleC SimulationConfig{resetCycles, ignoreReset} (Circuit f) =
-    let sampled = CE.sample_lazy (id (snd (f ((), def)))) in
+    let sampled = CE.sample_lazy (snd (f ((), def))) in
     if ignoreReset then drop resetCycles sampled else sampled