Allow for more complex placement positioning

src/Dodge/Default/Room.hs

@@ -3,6 +3,7 @@ module Dodge.Default.Room
 import Geometry.Data
 import Dodge.LevelGen.Data
 import qualified Data.IntMap.Strict as IM
+import qualified Data.Set as S
 
 defaultRoom :: Room
 defaultRoom = Room
@@ -24,4 +25,5 @@ defaultRoom = Room
     , _rmTakeFrom   = Nothing
     , _rmStartWires = IM.empty
     , _rmEndWires   = IM.empty
+    , _rmConnectsTo = S.singleton OutLink
     }