update primes test because it sometimes causes timeout during the performance report

2 files changed, 4 insertions, 4 deletions

diff --git a/testdata/primes.lc b/testdata/primes.lc
index 268d7e7b..76d39db0 100644
--- a/testdata/primes.lc
+++ b/testdata/primes.lc
@@ -50,5 +50,5 @@ primes = 2:3: filter (\n -> and $ map (\p -> n `mod` p /= 0) (takeWhile (\x -> x
 (x: _) !! 0 = x
 (_ : xs) !! n = xs !! (n-1)
 
-main = primes !! 3000
+main = primes !! 2000
 
diff --git a/testdata/primes.out b/testdata/primes.out
index f538ab96..aacee201 100644
--- a/testdata/primes.out
+++ b/testdata/primes.out
@@ -1,5 +1,5 @@
 main :: Int
-main = 27457
+main = 17393
 ------------ desugared source code
 infixr 0 $
 
@@ -98,7 +98,7 @@ primes
           (fromInt 0 == c))
         b
 
-main = _lhs main (_rhs (primes !! fromInt 3000))
+main = _lhs main (_rhs (primes !! fromInt 2000))
 ------------ core code
 !! :: forall a . [a] -> Int -> a
 !!
@@ -156,7 +156,7 @@ id :: forall a . a -> a
 id = \a b -> _rhs b
 
 main :: Int
-main = _rhs 27457
+main = _rhs 17393
 
 map :: forall a b . (a -> b) -> [a] -> [b]
 map = \a b c -> _rhs (foldr (\d e -> c d : e) [])