Move towards unifying RoomPos constructors

2022-03-10 16:21:44 +00:00
parent 907cca0ef0
commit 7b1ac2b682
7 changed files with 94 additions and 60 deletions
@@ -83,7 +83,8 @@ glassSwitchBack = do
    hgt <- state $ randomR (400,600)
    wllen <- state $ randomR (60,wth/2-40)
    let hf = hgt/5
-        con1 cond (UnusedLink (V2 x y) a _) _ | cond y = Just (PS (V2 x y) a , UsedSpot (V2 x y) a $ S.singleton RoomPosExLink)
+        con1 cond (UnusedLink (V2 x y) a _ rpls) _ 
+            | cond y = Just (PS (V2 x y) a , UsedSpot (V2 x y) a (S.singleton RoomPosExLink) rpls)
        con1 _ _ _ = Nothing
        plmnts = 
            [ mntLightLnkCond $ con1 (< 0.5 * hgt)