Tweak room modification when creating link

src/Dodge/Data.hs

@@ -1393,7 +1393,6 @@ data Placement
         { _plSpot   :: PlacementSpot
         , _plType   :: PSType
         , _plMID    :: Maybe Int
---        , _plGenUpdate :: Maybe (GenParams -> Placement -> (GenParams, Placement) )
         , _plIDCont :: World -> Placement -> Maybe Placement 
         }
     | PlacementUsingPos Point3 (Point3 -> Placement)  -- allows a placement to use a shifted position
@@ -1413,7 +1412,7 @@ data Room = Room
     --, _rmOutLinks      :: [RoomLink]
     --, _rmInLinks      :: [RoomLink]
         -- update the room when assigning the next link to an adjacent room with the head of of this list, return the tail
-    , _rmLinkEff    :: [(Point2,Float) -> Room -> Room]
+    , _rmLinkEff    :: [RoomLink -> Room -> Room]
     , _rmPos        :: [RoomPos]
     , _rmPath       :: [(Point2, Point2)]
     , _rmPmnts      :: [Placement]
@@ -1457,6 +1456,7 @@ data RoomLinkType
     | FromNorth Int
     | FromWest Int
     | FromEast Int
+    | BlockedLink
     deriving (Eq,Ord,Show)
 data CardinalPoint
     = North