Ошибка компиляции корней уравнений на языке Haskell

Следующий алгоритм должен вычислять корень уравнения 2-й степени, но его компиляция приводит к ошибке компиляции. Я скопировал его из учебника.

2 roota.hs:5:20: parse error on input `='

roots (a,b,c) = 
        if d < 0 then error "sorry" else (x1, x2)
        where x1 = e + sqrt d / (2 * a)
            x2 = e - sqrt d / (2 * a)
            d = b * b - 4 * a * c
            e = - b / (2 *a)

Спасибо за ответы.