From e29ab5d55be1c9cf60d4c795dc85388181a2e64b Mon Sep 17 00:00:00 2001 From: Tom Smeding 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