Continue refactor

2022-06-28 03:29:55 +01:00
parent e06527091e
commit 480fc2df5e
7 changed files with 17 additions and 25 deletions
@@ -50,7 +50,7 @@ addBlock (p:ps) wl bl w = w
        V2 x y = wallZoneOfPoint $ uncurry midPoint (_wlLine wl)
        wlid  = _wlID wl
        ips = map (unv2 . wallZoneOfPoint) $ uncurry (divideLine (2*wallZoneSize)) (_wlLine wl)
-        unv2 (V2 x y) = (x,y)
+        unv2 (V2 x' y') = (x',y')
 addBlock _ _ _ _ = error "Trying to add a block with incomplete polygon"
        
 placeBlock :: [Point2] -> Block -> Wall -> World -> (Int,World)