Cleanup room moduling

2021-11-13 11:45:00 +00:00
parent 169ed7d05d
commit 3624f22f2b
7 changed files with 525 additions and 500 deletions
@@ -36,7 +36,7 @@ placeSpot (w,rm) plmnt = case plmnt of
    Placement{_plSpot = PSLnk{}}      -> placeSpotUsingLink w rm plmnt
    Placement{} ->
        let (i,w') = placeSpotID (shiftPSBy shift (_plSpot plmnt)) (_plType plmnt) w
-            newplmnt = plmnt & plMID .~ Just i
+            newplmnt = plmnt & plMID ?~ i
        in maybe ((w',rm),[newplmnt]) (recrPlace newplmnt w') (_plIDCont plmnt newplmnt)
      where
        recrPlace newplmnt w' pl = let (wr,newplmnts) = placeSpot (w',rm) pl