Some linting

src/Dodge/Room/Procedural.hs

@@ -226,7 +226,7 @@ randomFourCornerRoom = do
     randomiseAllLinks . fillNothingPlacements (crits ++ itms) =<< 
         ( shufflePlacements
         . foldr1 combineRooms 
-        $ zipWith (\r a -> shiftRoomBy ((V2 0 0),a) r) corners [0,pi/2,pi,3*pi/2]
+        $ zipWith (\r a -> shiftRoomBy (V2 0 0,a) r) corners [0,pi/2,pi,3*pi/2]
         )
 {- | Creates room with a central vault with doors around it.
 -}
@@ -246,10 +246,10 @@ centerVaultRoom n w h d = do
     return $ defaultRoom
         { _rmPolys  = polys
         , _rmLinks  = 
-            [((V2 0 h),0)
-            ,((V2 w 0),-pi/2)
-            ,((V2 (-w) (0)),pi/2)
-            ,((V2 (0) (-h)),pi)
+            [(V2 0    h  , 0   )
+            ,(V2 w    0  ,-pi/2)
+            ,(V2 (-w) 0  , pi/2)
+            ,(V2 0   (-h), pi  )
             ]
         , _rmPath   = []
         , _rmPS     = 
@@ -259,15 +259,15 @@ centerVaultRoom n w h d = do
             ,sPS (V2 (5-w) (h-5)) 0 putLamp
             ,sPS (V2 (5-w) (5-h)) 0 putLamp
             ]
-            ++ concat (zipWith (\i r -> map (shiftPSBy ((V2 0 0),r)) $ theDoor i) 
+            ++ concat (zipWith (\i r -> map (shiftPSBy (V2 0 0,r)) $ theDoor i) 
                         [n, n+1, n+2, n+3] [0,pi/2,pi,3*pi/2])
         , _rmBound  = [rectNSWE h (-h) (-w) w]
         }
   where
     col = dim $ dim $ bright red
     theDoor i = 
-        [ sPS (V2 (0) (d-10)) 0 $ PutDoubleDoor col (cond i) (V2 (-19) (0)) (V2 19 0)
-        , sPS (V2 (35) (d+4)) 0 $ PutButton $ makeSwitch col 
+        [ sPS (V2 0  (d-10)) 0 $ PutDoubleDoor col (cond i) (V2 (-19) 0) (V2 19 0)
+        , sPS (V2 35 (d+4)) 0 $ PutButton $ makeSwitch col 
                            (over worldState (M.insert (DoorNumOpen i) True))
                            (over worldState (M.insert (DoorNumOpen i) False))
         ]