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 /src/Example.hs | |
| parent | fbd51aec2830c6a2eca0f92af1163664a608e194 (diff) | |
Make interpreter debug printing conditional
Diffstat (limited to 'src/Example.hs')
| -rw-r--r-- | src/Example.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Example.hs b/src/Example.hs index 6e8069c..0bc18fb 100644 --- a/src/Example.hs +++ b/src/Example.hs @@ -198,7 +198,7 @@ neuralGo = freezeRet mergeDescr (drev mergeDescr neural) (EConst ext STF64 1.0) - (primal, (((((), Right dlay1_1), Right dlay2_1), dlay3_1), dinput_1)) = interpretOpen argument revderiv + (primal, (((((), Right dlay1_1), Right dlay2_1), dlay3_1), dinput_1)) = interpretOpen False argument revderiv (Value dinput_2 `SCons` Value dlay3_2 `SCons` Value dlay2_2 `SCons` Value dlay1_2 `SCons` SNil) = drevByFwd knownEnv neural argument 1.0 in trace (formatter (ppExpr knownEnv revderiv)) $ (primal, (dlay1_1, dlay2_1, dlay3_1, dinput_1), (dlay1_2, dlay2_2, dlay3_2, dinput_2)) |