Continue placement refactor

src/Dodge/Room/Placement.hs

@@ -30,33 +30,33 @@ Places a line of blocks between two points.
 Width 9, also extends out from each point by 9.
  -}
 blockLine :: Point2 -> Point2 -> Placement
-blockLine a b = SimplePlacement $ PS
+blockLine a b = Placement PS
     { _psPos    = V2 0 0
     , _psRot    = 0
     , _psType   = PutLineBlock baseBlockPane 9 9 a b
-    }
+    } (const Nothing)
 
 {-
 Places an breakable window between two points.
 Width 8, also extends out from each point by 8.
  -}
 windowLine :: Point2 -> Point2 -> Placement
-windowLine a b = SimplePlacement $ PS 
+windowLine a b = Placement PS 
     { _psPos    = V2 0 0
     , _psRot    = 0
     , _psType   = PutLineBlock baseWindowPane 8 8 a b
-    }
+    } (const Nothing)
 
 {-
 Places an unbreakable window between two points.
 Width 7, also extends out from each point by 7.
  -}
 crystalLine :: Point2 -> Point2 -> Placement
-crystalLine a b = SimplePlacement $ PS 
+crystalLine a b = Placement PS 
     { _psPos    = V2 0 0
     , _psRot    = 0
     , _psType   = PutWall ps defaultCrystalWall
-    }
+    } (const Nothing)
   where
     ps = 
         [ a +.+ left +.+ up
@@ -70,11 +70,11 @@ crystalLine a b = SimplePlacement $ PS
 Depth 15, does not extend wider than points.
  -}
 wallLine :: Point2 -> Point2 -> Placement
-wallLine a b = SimplePlacement $ PS 
+wallLine a b = Placement PS 
     { _psPos    = V2 0 0
     , _psRot    = 0
     , _psType   = PutWall ps defaultWall
-    }
+    } (const Nothing)
   where
     ps = 
         [ a  +.+ up