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 1775bb9..697c4d9 100644 --- a/src/Example.hs +++ b/src/Example.hs @@ -109,7 +109,7 @@ ex6 :: Ex [TScal TI64, TScal TF32] (TScal TF32) ex6 = fromNamed $ lambda #x $ lambda #n $ body $ let_ #a (unit #x) $ let_ #b (build1 #n (#_ :-> let_ #c (idx0 #a) $ #c * #c)) $ - idx0 (#b .! 3) + #b ! pair nil 3 type R = TScal TF64 |