Simplified Backward (all outputs selected)

explorable-viz · Sep 27, 2023 · 577fa5f · 577fa5f
1 parent 9b605af
commit 577fa5f
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/test/Util.purs b/test/Util.purs
@@ -124,9 +124,7 @@ testGraph s gconfig { δv, bwd_expect, fwd_expect } = do
    -- | Backward (all outputs selected)
    tBwdAll1 <- preciseTime
    let
-      αs_out_all = gc.runδv topOf
-      αs_in_all = gc.bwd αs_out_all
-      e𝔹_all = gc.selecte𝔹 αs_in_all
+      e𝔹_all = (gc.selecte𝔹 <<< gc.bwd <<< gc.runδv) topOf
    tBwdAll2 <- preciseTime
 
    -- | Forward (round-tripping)