Tweak start rooms

src/Dodge/Room/RezBox.hs

@@ -72,7 +72,7 @@ rezBoxesWpCrit = do
     --horedge <- takeOne [OnEdge North,OnEdge South]
     let centralRoom = (roomRectAutoLinks w h) {_rmPmnts = []}
     onwardpassage <- 
-        (applyToCompRoot (rmConnectsTo .~ S.singleton (OnEdge West))) <$> maybeBlockedPassage
+        applyToCompRoot (rmConnectsTo .~ S.singleton (OnEdge West)) <$> maybeBlockedPassage
     let bottomEdgeTest (V2 _ y,_) = y < 1
         aroom = rezInvBox thecol
     let n = length $ filter bottomEdgeTest $ map lnkPosDir $ _rmLinks centralRoom