diff options
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 f3baedf..389248a 100644 --- a/src/Example.hs +++ b/src/Example.hs @@ -9,7 +9,7 @@ import CHAD import Simplify --- ppExpr senv5 $ simplifyN 20 $ freezeRet (drev (descr5 SAccum SAccum) (\_ _ -> Some SAccum) ex5) (EConst ext STF32 1.0) +-- ppExpr senv5 $ simplifyN 20 $ let d = descr5 SAccum SAccum in freezeRet d (drev d (\_ _ -> Some SAccum) ex5) (EConst ext STF32 1.0) bin :: SOp (TPair a b) c -> Ex env a -> Ex env b -> Ex env c |