Remove parameters from machine damage sensors

src/Geometry/ConvexPoly.hs

@@ -11,7 +11,6 @@ module Geometry.ConvexPoly (
     --    , centroid
     pointsToPoly,
     convexPolysOverlap,
---    pointInPolyPoints,
 ) where
 
 import Control.Lens
@@ -51,9 +50,6 @@ convexPolysOverlap cp1 cp2 =
     dist (_cpCen cp1) (_cpCen cp2) < _cpRad cp1 + _cpRad cp2
         && polyPointsOverlap (_cpPoints cp1) (_cpPoints cp2)
 
---pointInConvexPoly :: Point2 -> ConvexPoly -> Bool
---pointInConvexPoly p cp = dist p (_cpCen cp) < _cpRad cp
---    && pointInPolyPoints p (_cpPoints cp)
 
 -- | Test whether two polygons intersect or if one is contained in the other.
 polyPointsOverlap :: [Point2] -> [Point2] -> Bool