Cleanup and various bugfixes

src/Geometry/LHS.hs

@@ -22,7 +22,7 @@ isLHS
     a2 = y' - y
     b1 = x'' - x
     b2 = y'' - y
--- | Test whether a point is on the LHS of a line.
+-- | Test whether a point is on the RHS of a line.
 -- Returns False if the line is of zero length.
 isRHS 
     :: Point2 -- ^ First line point.