Find integer solutions to y^3 == x^2 + 1

-- Find integer solutions to y^3 == x^2 + 1
main = do
  let equation (x,y) = y^3 == x^2 + 1
  let candidates = [(x,y) | x <- [0..1000], y <-[-100..100]]
  let solutions = filter equation candidates
  print solutions