Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : ghc-7.4
http://hackage.haskell.org/trac/ghc/changeset/997c5c7f840565c6331d6d21cc8f39f0b5b33131 >--------------------------------------------------------------- commit 997c5c7f840565c6331d6d21cc8f39f0b5b33131 Author: Ben Lippmeier <[email protected]> Date: Wed Feb 8 16:18:12 2012 +1100 Follow API wibbles in DPH library >--------------------------------------------------------------- tests/dph/dotp/Main.hs | 2 +- tests/dph/quickhull/Main.hs | 2 +- tests/dph/quickhull/TestData.hs | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/tests/dph/dotp/Main.hs b/tests/dph/dotp/Main.hs index ea21f39..d80ff5f 100644 --- a/tests/dph/dotp/Main.hs +++ b/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 "Main.hs" randvec (i `mod` k)) (U.enumFromTo 0 (n-1)) evaluate vec return vec where diff --git a/tests/dph/quickhull/Main.hs b/tests/dph/quickhull/Main.hs index 5c1f9e6..4166578 100644 --- a/tests/dph/quickhull/Main.hs +++ b/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 "Main.hs" resxs 0 `seq` (zip (U.toList resxs) (U.toList resys)) -- Main Program --------------------------------------------------------------- diff --git a/tests/dph/quickhull/TestData.hs b/tests/dph/quickhull/TestData.hs index da112f1..0a297c8 100644 --- a/tests/dph/quickhull/TestData.hs +++ b/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.hs" (P.toUArray (QH.xsOf pts)) 0 D.+ + U.index "TestData.hs" (P.toUArray (QH.ysOf pts)) 0 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
