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/ForwardAD.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/ForwardAD.hs') diff --git a/src/ForwardAD.hs b/src/ForwardAD.hs index af35f91..b7036dd 100644 --- a/src/ForwardAD.hs +++ b/src/ForwardAD.hs @@ -223,7 +223,7 @@ data FwdADArtifact env t = FwdADArtifact (SList STy env) (STy t) (SList Value (D makeFwdADArtifactInterp :: SList STy env -> Ex env t -> FwdADArtifact env t makeFwdADArtifactInterp env expr = let dexpr = dfwdDN expr - in FwdADArtifact env (typeOf expr) (\inp -> interpretOpen False inp dexpr) + in FwdADArtifact env (typeOf expr) (\inp -> interpretOpen False (dne env) inp dexpr) {-# NOINLINE makeFwdADArtifactCompile #-} makeFwdADArtifactCompile :: SList STy env -> Ex env t -> IO (FwdADArtifact env t) -- cgit v1.2.3-70-g09d2