diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-11-26 15:25:13 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-11-26 15:25:13 +0100 |
| commit | ae2b1b71a91d60d3bd1dfb21fce98c05c1a4fcbb (patch) | |
| tree | 1f6afda4b1d6925fe8224ee4f2ca40212fe11aa6 /src/Example.hs | |
| parent | 7774da51c532006da82617ce307d136897693280 (diff) | |
WIP accum top-level args
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 94a6934..795229c 100644 --- a/src/Example.hs +++ b/src/Example.hs @@ -184,7 +184,7 @@ neuralGo = ELet ext (EConst ext STF64 1.0) $ chad defaultConfig knownEnv neural (primal, dlay1_1, dlay2_1, dlay3_1, dinput_1) = case interpretOpen False argument revderiv of - (primal', (((((), Right dlay1_1'), Right dlay2_1'), dlay3_1'), dinput_1')) -> (primal', dlay1_1', dlay2_1', dlay3_1', dinput_1') + (primal', (((((), Just dlay1_1'), Just dlay2_1'), dlay3_1'), dinput_1')) -> (primal', dlay1_1', dlay2_1', dlay3_1', dinput_1') _ -> undefined (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)) $ |