ハスケルのプロジェクトオイラー番号10、バグを見つけることができません

Question

私はハスケルの初心者です。Project Euler Problem 10と問題があります。ここで私が持っているものだ：私はこれを実行すると

primes :: Integral a => [a] 
primes = filter isPrime [1,3..] 

isPrime :: Integral a => a -> Bool 
isPrime 1 = False 
isPrime n = not $ any isDivisibleBy [2..maxTry] 
    where isDivisibleBy x = n `mod` x == 0 
      maxTry = floor $ sqrt $ fromIntegral n 

solution :: Integral a => a 
solution = sum $ takeWhile (<2000000) primes 

main = putStrLn $ show solution 

、私は142913828920.プロジェクトオイラーはそれが間違っていると言っている取得します。これは問題No.7のprimesとisPrimeに同じ定義をうまく使用していたため、私はうんざりです。これは10001番目の素数を見つけることでした。助けて？

Answer 1

2が素数であるので、私はライン

primes = filter isPrime [1,3..] 

に質問です。