Commit before making out and in placements have ids

src/Dodge/LevelGen/Data.hs

@@ -89,7 +89,7 @@ data Room = Room
     , _rmTakeFrom   :: Maybe Int
     , _rmStartWires :: IM.IntMap RoomWire
     , _rmEndWires   :: IM.IntMap RoomWire
-    , _rmConnectsTo :: (S.Set RoomLinkType -> Bool)
+    , _rmConnectsTo :: S.Set RoomLinkType -> Bool
     , _rmMID        :: Maybe Int
     , _rmMParent    :: Maybe Int
     , _rmChildren   :: [Int]
@@ -105,7 +105,9 @@ data RoomLinkType
     | LabLink Int
     | OnEdge CardinalPoint
     | FromSouth Int
+    | FromNorth Int
     | FromWest Int
+    | FromEast Int
     deriving (Eq,Ord,Show)
 data CardinalPoint
     = North
@@ -130,7 +132,14 @@ data RPLinkStatus
     | UnusedLink  { _rplsType :: S.Set RoomLinkType }
     | NotLink
   deriving (Eq,Ord,Show)
-
+data OutPlacement = OutPlacement
+    { _opPlacement :: Placement
+    , _opPlacementID :: Int
+    }
+data InPlacement = InPlacement
+    { _ipPlacement :: [Placement] -> Placement
+    , _ipPlacementID :: Int
+    }
 data RoomPos = RoomPos
     { _rpPos :: Point2 
     , _rpDir :: Float