Cleanup

src/Dodge/LevelGen/StaticWalls.hs

@@ -203,6 +203,7 @@ fuseWallsWith zs ws = snd $ foldr fuseWalls' (zs, []) ws
         let (qs, w') = fuseWall (ps, w)
         in  (qs, w' :  ws)
 
+-- | Test if fst p == snd p.
 wallIsZeroLength (x,y) = x == y
 
 -- | Given a polygon and list of walls, removes walls inside the polygon.
@@ -214,19 +215,3 @@ removeWallsInPolygon ps walls = filter (not . cond) walls
 --        pointInOrOnPolygon (fst wall) ps
 --                        && pointInOrOnPolygon (snd wall) ps
 
-hw x y = 0.5 *.* (x +.+ y)
-
-
---pairElems :: Eq a => [(a,a)] -> [a]
---pairElems = concatMap flat2
---  where
---    flat2 (x,y) = [x,y]
---
---findLinkedPairs :: Eq a => (a,a) -> [(a,a)] -> [(a,a)]
---findLinkedPairs (x,y) = ( (x,y) : ) . filter f
---  where
---    f (a,b) = b == x || a == y
---
---
---combineListsWithID :: Eq a => [[a]] -> [[a]]
---combineListsWithID (x: