Heron's method in haskell

Question

I\'m getting divide by zero exceptions in this code of heron\'s method, and I am kind of lost here.

epsilon:: Integral a => a
epsilon = 1

heron:: Integral