libreDeCuadrados :: Integer -> Bool
libreDeCuadrados x = sumaPrimos x 2 0
where
sumaPrimos x c s
| c == x && s == x = True -- Caso Base 1
| c == x && s /= x = False -- Caso Base 2
| x `mod` c == 0 && sumaPrimos x (c+1) (s+c) && esPrimo c
| otherwise = sumaPrimos x (c+1) s
Tengo este código y me da el error que sale en el titulo. Alguien puede ayudarme?