diff options
| -rw-r--r-- | bench/Main.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/bench/Main.hs b/bench/Main.hs index 53657b4..34e8bae 100644 --- a/bench/Main.hs +++ b/bench/Main.hs @@ -36,8 +36,11 @@ gradCHAD :: KnownEnv env => CHADConfig -> Ex env (TScal TF64) -> IO (SList Value gradCHAD config term = compile knownEnv $ simplifyFix $ pruneExpr knownEnv $ - simplifyFix $ unMonoid $ simplifyFix $ - ELet ext (EConst ext STF64 1.0) $ chad' config knownEnv term + simplifyFix $ unMonoid $ + simplifyFix $ + ELet ext (EConst ext STF64 1.0) $ + chad' config knownEnv $ + simplifyFix term type AllNFDataRep :: [Ty] -> Constraint type family AllNFDataRep env where |