diff options
| author | Ben Lippmeier <benl@ouroborus.net> | 2011-12-12 14:13:03 +1100 |
|---|---|---|
| committer | Ben Lippmeier <benl@ouroborus.net> | 2011-12-12 14:13:03 +1100 |
| commit | db2d096693f75ae019012cb05949a5749e0a8dc0 (patch) | |
| tree | b47101da39ca4f0c6ce90c0bcd652732c22229ed /testsuite/tests/dph | |
| parent | 35b4a34653aba080c8a83181650159381c8a2429 (diff) | |
| download | haskell-db2d096693f75ae019012cb05949a5749e0a8dc0.tar.gz | |
dph: follow changes in unlifted API
Diffstat (limited to 'testsuite/tests/dph')
| -rw-r--r-- | testsuite/tests/dph/dotp/Main.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/dph/quickhull/Main.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/dph/quickhull/TestData.hs | 4 |
3 files changed, 4 insertions, 4 deletions
diff --git a/testsuite/tests/dph/dotp/Main.hs b/testsuite/tests/dph/dotp/Main.hs index ea21f395c4..c6d4f1e91c 100644 --- a/testsuite/tests/dph/dotp/Main.hs +++ b/testsuite/tests/dph/dotp/Main.hs @@ -18,7 +18,7 @@ generateVectorU n = let -- The std random function is too slow to generate really big vectors -- with. Instead, we generate a short random vector and repeat that. randvec = U.randomRs k (-100, 100) rg - vec = U.map (\i -> randvec U.!: (i `mod` k)) (U.enumFromTo 0 (n-1)) + vec = U.map (\i -> U.index "generateVectorU" randvec (i `mod` k)) (U.enumFromTo 0 (n-1)) evaluate vec return vec where diff --git a/testsuite/tests/dph/quickhull/Main.hs b/testsuite/tests/dph/quickhull/Main.hs index 5c1f9e6b01..718a1630ef 100644 --- a/testsuite/tests/dph/quickhull/Main.hs +++ b/testsuite/tests/dph/quickhull/Main.hs @@ -21,7 +21,7 @@ runQuickhull pts = let result = quickhull pts resxs = P.toUArray (QH.xsOf result) resys = P.toUArray (QH.ysOf result) - in resxs U.!: 0 `seq` (zip (U.toList resxs) (U.toList resys)) + in U.index "runQuickhull" resxs 0 `seq` (zip (U.toList resxs) (U.toList resys)) -- Main Program --------------------------------------------------------------- diff --git a/testsuite/tests/dph/quickhull/TestData.hs b/testsuite/tests/dph/quickhull/TestData.hs index da112f1c99..2d07354de7 100644 --- a/testsuite/tests/dph/quickhull/TestData.hs +++ b/testsuite/tests/dph/quickhull/TestData.hs @@ -86,7 +86,7 @@ toPArrayPoints ps -- | Force points to be evaluated force pts - = P.toUArray (QH.xsOf pts) U.!: 0 D.+ - P.toUArray (QH.ysOf pts) U.!: 0 + = U.index "TestData" (P.toUArray (QH.xsOf pts)) 0 D.+ + U.index "TestData" (P.toUArray (QH.ysOf pts)) 0 |