Example use of fallback in placement room positions

2022-03-08 23:19:14 +00:00
parent ff6064a3b6
commit 8ff18178b1
2 changed files with 11 additions and 4 deletions
@@ -37,6 +37,11 @@ unusedSpotAwayFromLink x = PSPos f (const id) Nothing
                -> Just (PS p a,UsedSpot p a t)
        _       -> Nothing

+setFallback :: Placement -> Placement -> Placement
+setFallback fallback plmnt = plmnt
+    & plSpot . psFallback .~ Just fallback
+    & plIDCont %~ fmap (fmap $ setFallback fallback)
+
 unusedOffPathAwayFromLink :: Float -> PlacementSpot
 unusedOffPathAwayFromLink x = PSPos f (const id) Nothing
  where