added bearingTo to latlon.hs