aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTom Smeding <tom@tomsmeding.com>2024-04-17 10:23:34 +0200
committerTom Smeding <tom@tomsmeding.com>2024-04-17 10:23:34 +0200
commite29ab5d55be1c9cf60d4c795dc85388181a2e64b (patch)
tree7a25b79c2f1f7e44b870df2dca9652f89cb7f616
parentc1dd11717ecff65bae94cf0d4fb2dfcff5eeae3f (diff)
Update example
-rw-r--r--test/Main.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/test/Main.hs b/test/Main.hs
index 7e1a3a1..1619c00 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -6,9 +6,9 @@ module Main where
import Data.Array.Nested
-arr :: Ranked N2 (Shaped [2, 3] (Double, Int))
+arr :: Ranked I2 (Shaped [2, 3] (Double, Int))
arr = rgenerate (3 ::: 4 ::: IZR) $ \(i ::: j ::: IZR) ->
- sgenerate @[2, 3] (2 ::$ 3 ::$ IZS) $ \(k ::$ l ::$ IZS) ->
+ sgenerate @[2, 3] $ \(k ::$ l ::$ IZS) ->
let s = 24*i + 6*j + 3*k + l
in (fromIntegral s, s)