Cleanup

src/Dodge/Room/LongDoor.hs

@@ -84,7 +84,7 @@ twinSlowDoorChasers = do
     return $ twinSlowDoorRoom 80 200 40 & rmPmnts %~ (plmnts ++)
 
 southPillarsRoom :: RandomGen g => Float -> Float -> Float -> State g Room
-southPillarsRoom x y h = addSouthPillars x h =<< (roomRectAutoLinks x y)
+southPillarsRoom x y h = addSouthPillars x h =<< roomRectAutoLinks x y
 
 addSouthPillars :: RandomGen g => Float -> Float -> Room -> State g Room
 addSouthPillars x h r = do