diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-10-26 21:27:58 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-10-26 21:27:58 +0200 |
| commit | bda6cec5427093c7ef9a2a9112ee623aebd07a5a (patch) | |
| tree | 5cb1857d1191e5a94125779b5fce2eda4006e7ee /test | |
| parent | fbd51aec2830c6a2eca0f92af1163664a608e194 (diff) | |
Make interpreter debug printing conditional
Diffstat (limited to 'test')
| -rw-r--r-- | test/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Main.hs b/test/Main.hs index ab01e89..c746807 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -70,7 +70,7 @@ gradientByCHAD = \simplIters env term input -> (Refl, Refl) -> let dterm = diffCHAD simplIters env term input1 = toPrimalE env input - (_out, grad) = interpretOpen input1 dterm + (_out, grad) = interpretOpen False input1 dterm in (ppExpr (primalEnv env) dterm, unTup vUnpair (d2e env) (Value grad)) where toPrimalE :: SList STy env' -> SList Value env' -> SList Value (D1E env') |