Refactor wall points from lists to pairs

2021-05-04 01:31:55 +02:00
parent e21178b688
commit 6d4c17fc07
23 changed files with 260 additions and 255 deletions
@@ -126,7 +126,7 @@ addWalls qs wl wls = foldr (addPane wl) wls pairs
    pairs = zip (ps ++ [p]) (p:ps)
 addPane :: Wall -> (Point2,Point2) -> IM.IntMap Wall -> IM.IntMap Wall
 addPane wl (p0,p1) wls = IM.insert (newKey wls) (wl
-    { _wlLine = [p0,p1]
+    { _wlLine = (p0,p1)
    , _wlID = newKey wls
    })
    wls