Haskell Heron области без где, пусть

Я хочу реализовать область треугольника Герона в haskell. Я не могу использовать куда и впустить...

вот мой код:

triangleArea :: (Double, Double, Double) -> Double
triangleArea (x, y, z) = sqrt (div ((x + y + z)*(x + y - z)*(x - y + z)*(-x + 
y + z)) 4)

Результат моего кода - ошибка:

    • No instance for (Integral Double) arising from a use of ‘div’
    • In the first argument of ‘sqrt’, namely ‘(div ((x + y + z) * (x + y - z) * (x - y + z) * (- x + y + z)) 4)’
      In the expression: sqrt (div ((x + y + z) * (x + y - z) * (x - y + z) * (- x + y + z)) 4)
      In an equation for ‘triangleArea’: triangleArea (x, y, z) = sqrt (div ((x + y + z) * (x + y - z) * (x - y + z) * (- x + y + z)) 4)

Что я делаю не так?