From e29ab5d55be1c9cf60d4c795dc85388181a2e64b Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Wed, 17 Apr 2024 10:23:34 +0200
Subject: Update example
---
test/Main.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'test')
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)
--
cgit v1.2.3-70-g09d2