Identify broken wall collisions

src/Geometry.hs

@@ -184,12 +184,16 @@ circOnSegNoEndpoints !p1 !p2 !c !rad = isJustTrue (fmap (\p -> magV (p -.- c) <
 -- the distance to the endpoints of the segment.
 circOnSeg :: Point2 -> Point2 -> Point2 -> Float -> Bool
 {-# INLINE circOnSeg #-}
-circOnSeg !p1 !p2 !c !rad = magV (p1 -.- c) <= rad || magV (p2 -.- c) <= rad
+circOnSeg !p1 !p2 !c !rad = magV (p1 -.- c) <= rad 
+    || magV (p2 -.- c) <= rad
     || isJustTrue (fmap (\p -> magV (p -.- c) < rad) y)
   where 
     y = intersectSegLine p1 p2 c (c +.+ vNormal (p1 -.- p2))
     isJustTrue (Just True) = True
     isJustTrue _           = False
+cylinderOnSeg :: Point3 -> Point3 -> Point3 -> Float -> Bool
+{-# INLINE cylinderOnSeg #-}
+cylinderOnSeg = undefined
 -- | Find the difference between two Nums.
 difference :: (Ord a, Num a) => a -> a -> a
 difference x y