Move main to allow for new executables

src/Dodge/Room/Placement.hs

@@ -28,7 +28,7 @@ Width 9, also extends out from each point by 9.
  -}
 blockLine :: Point2 -> Point2 -> Placement
 blockLine a b = SinglePlacement $ PS
-    { _psPos    = (V2 0 0)
+    { _psPos    = V2 0 0
     , _psRot    = 0
     , _psType   = PutLineBlock baseBlockPane 9 9 a b
     }
@@ -39,7 +39,7 @@ Width 8, also extends out from each point by 8.
  -}
 windowLine :: Point2 -> Point2 -> Placement
 windowLine a b = SinglePlacement $ PS 
-    { _psPos    = (V2 0 0)
+    { _psPos    = V2 0 0
     , _psRot    = 0
     , _psType   = PutLineBlock baseWindowPane 8 8 a b
     }
@@ -50,7 +50,7 @@ Width 7, also extends out from each point by 7.
  -}
 crystalLine :: Point2 -> Point2 -> Placement
 crystalLine a b = SinglePlacement $ PS 
-    { _psPos    = (V2 0 0)
+    { _psPos    = V2 0 0
     , _psRot    = 0
     , _psType   = PutWall ps defaultCrystalWall
     }
@@ -68,7 +68,7 @@ Depth 15, does not extend wider than points.
  -}
 wallLine :: Point2 -> Point2 -> Placement
 wallLine a b = SinglePlacement $ PS 
-    { _psPos    = (V2 0 0)
+    { _psPos    = V2 0 0
     , _psRot    = 0
     , _psType   = PutWall ps defaultWall
     }
@@ -87,7 +87,7 @@ windowLineType = PutLineBlock baseWindowPane 8 8
 
 baseBlockPane :: Wall
 baseBlockPane = Block
-    { _wlLine = ((V2 0 0),(V2 50 0))
+    { _wlLine = (V2 0 0,V2 50 0)
     , _wlID = 0
     , _wlColor = greyN 0.5
     , _wlSeen = False
@@ -100,7 +100,7 @@ baseBlockPane = Block
     }
 baseWindowPane :: Wall
 baseWindowPane = Block
-    { _wlLine = ((V2 0 0),(V2 50 0))
+    { _wlLine = (V2 0 0,V2 50 0)
     , _wlID = 0
     , _wlColor = withAlpha 0.2 cyan
     , _wlSeen = False