From bd5d0458017862b984b9caf0975c135d154e8515 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Fri, 18 Apr 2025 12:53:43 +0200 Subject: pretty: Print arguments of open expression --- src/Example.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Example.hs') diff --git a/src/Example.hs b/src/Example.hs index 4fa8d5a..3623d03 100644 --- a/src/Example.hs +++ b/src/Example.hs @@ -158,7 +158,7 @@ neuralGo = simplifyN 20 $ 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, dlay1_1, dlay2_1, dlay3_1, dinput_1) = case interpretOpen False knownEnv argument revderiv of (primal', (((((), Just (Just dlay1_1'a, Just dlay1_1'b)), Just (Just dlay2_1'a, Just dlay2_1'b)), Just dlay3_1'), Just dinput_1')) -> (primal', (dlay1_1'a, dlay1_1'b), (dlay2_1'a, dlay2_1'b), dlay3_1', dinput_1') _ -> undefined (Value dinput_2 `SCons` Value dlay3_2 `SCons` Value dlay2_2 `SCons` Value dlay1_2 `SCons` SNil) = drevByFwdInterp knownEnv neural argument 1.0 -- cgit v1.2.3-70-g09d2