Refactor

src/Dodge/LevelGen/StaticWalls.hs

@@ -132,7 +132,7 @@ cutWalls' qs walls =
 expandPolyBy :: Float -> [Point2] -> [Point2]
 expandPolyBy x ps = map f ps
   where
-    cp = 1/(fromIntegral (length ps)) *.* foldr (+.+) (0,0) ps
+    cp = 1/fromIntegral (length ps) *.* foldr (+.+) (0,0) ps
     f p = p +.+ x *.* (p -.- cp)
 -- | Given a polygon expressed as a list of points and a collection of walls,
 -- returns: 
@@ -171,7 +171,7 @@ addPolyWall (p1,p2) walls =
         Just ws -> if all (\(x,y) -> isLHS x y p3) ws
             then walls
             else (p1,p2) : walls
-        Nothing -> ((p1,p2) : walls)
+        Nothing -> (p1,p2) : walls
   where 
     p3 = 0.5 *.* (p1 +.+ p2)
     p4 = p3 +.+ 10000 *.* vNormal (p2 -.- p1)