diff options
Diffstat (limited to 'bench/Main.hs')
| -rw-r--r-- | bench/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bench/Main.hs b/bench/Main.hs index 5bb81ac..32fbc8c 100644 --- a/bench/Main.hs +++ b/bench/Main.hs @@ -19,6 +19,7 @@ import GHC.Exts (withDict) import AST import Array +import qualified CHAD (defaultConfig) import CHAD.Top import CHAD.Types import Data @@ -34,7 +35,7 @@ gradCHAD :: KnownEnv env => SList Value env -> Double -> Ex env (TScal TF64) -> gradCHAD input ctg term = interpretOpen False input $ simplifyFix $ - ELet ext (EConst ext STF64 ctg) $ chad' knownEnv term + ELet ext (EConst ext STF64 ctg) $ chad' CHAD.defaultConfig knownEnv term instance KnownTy t => NFData (Value t) where rnf = \(Value x) -> go (knownTy @t) x |