对于二次公式，输入'='上的Haskell解析错误

Question

我正在尝试编写一个haskell函数，它将计算二次函数的两个根。我不断收到错误“输入'上的解析错误='。它进一步说”也许你需要在'do'block中'let'。

import Data.List
import System.IO

quad :: (Double, Double, Double) -> (Double, Double)
quad (a, b, c) = (x0, x1)
    where
        d = b * b - (4 * a * c)
        e = - b / (2 * a)
        x0 = e + sqrt d / (2 * a)
        x1 = e - sqrt d / (2 * a)