入門書にソートがあるので勉強してます。所で、
angle :: Float -> Float -> Float
angle x y
| x > 0 && y > 0= (y / x) / tan
| otherwise= error""
のtanがなぜエラーなのでしょうか？