Cleanup

src/Dodge/Room/Room.hs

@@ -134,7 +134,6 @@ roomCenterPillar = do
                         set rmName "roomCenterPillar" $
                             roomRect 240 240 2 2
             )
-  where
 
 weaponEmptyRoom :: State StdGen (Tree Room)
 weaponEmptyRoom = do
@@ -156,7 +155,7 @@ weaponEmptyRoom = do
 
 weaponUnderCrits :: RandomGen g => State g (MetaTree Room String)
 weaponUnderCrits = do
-    let addwpat p = rmPmnts .:~ (sPS p 0 $ RandPS $ fmap PutFlIt randFirstWeapon)
+    let addwpat p = rmPmnts .:~ sPS p 0 (RandPS $ fmap PutFlIt randFirstWeapon)
         continuationRoom =
             treePost
                 [ addwpat (V2 20 0) corridorN
@@ -305,11 +304,10 @@ shootersRoom' = do
 
 shootersRoom1 :: RandomGen g => State g Room
 shootersRoom1 = do
-    pl <- ( takeOne $
+    pl <- takeOne $
                 map
                     (\i -> psPtPl (PSRoomRand i (uncurry PS)) (PutCrit autoCrit))
                     [0, 1, 2]
-            )
     shootersRoom' <&> rmPmnts
         .:~ pl