Hallar-las-raices-de-una-ecuacion-Cuadratica

Hallar las raices de una ecuacion cuadratica en Haskell con guardascuadrado :: (Float) - > Float
cuadrado (x)=x*x



[pl]

myRaices :: (Float,Float,Float) - > (Float,Float)
myRaices (a,b,c)
| cuadrado(b) >(4*a*c)=((-b + sqrt(cuadrado(b)-(4*a*c)))/(2*a),(-b - sqrt(cuadrado(b)-(4*a*c)))/(2*a))
| otherwise = error "El resultado son numeros Imaginarios"

[/pl]