Cleanup in/outplacements

2022-03-11 13:24:14 +00:00
parent 5d43fc8244
commit 33718ea94b
5 changed files with 23 additions and 32 deletions
@@ -85,8 +85,6 @@ data Room = Room
    , _rmShift      :: (Point2, Float)
    , _rmViewpoints :: [Point2]
    , _rmRandPSs    :: [State StdGen (Point2,Float)]
-    , _rmLabel      :: Maybe Int
-    , _rmTakeFrom   :: Maybe Int
    , _rmStartWires :: IM.IntMap RoomWire
    , _rmEndWires   :: IM.IntMap RoomWire
    , _rmConnectsTo :: S.Set RoomLinkType -> Bool