Refactoring and linting

src/Dodge/Base.hs

@@ -425,15 +425,6 @@ collidePointFireVision p1 p2 ws =  any ( isJust
                                 Just _  -> not $ _wlIsSeeThrough wl
                                 Nothing -> True
 
--- shit this is ugly
-lineOfThickness :: Float -> [Point2] -> Picture
-lineOfThickness t = pictures . f
-    where f (x:y:ys) 
-            | x == y = f (x:ys)
-            | otherwise 
-                     = polygon [x +.+ n x y, x -.- n x y, y -.- n x y, y +.+ n x y] : f (y:ys)
-          f _        = []
-          n a b      = (t*0.5) *.* errorNormalizeV 42 (vNormal (a -.- b))
 
 lineGeom :: Float -> Point2 -> Point2 -> [Point2]
 lineGeom t x y