More strictifiiiying

src/Dodge/Room/NoNeedWeapon.hs

@@ -11,6 +11,7 @@ import Dodge.Room.Procedural
 import Dodge.Room.Link
 import Dodge.RandomHelp
 import Dodge.LevelGen.Data
+import Geometry.Data
 
 import Control.Lens
 --import Control.Monad
@@ -29,11 +30,11 @@ centerVaultExplosiveExit
 centerVaultExplosiveExit drID = do
     cr <- takeOne [miniGunCrit, autoCrit]
     let extraPS = 
-            [sPS (0,175) 0 $ PutCrit explosiveBarrel
-            ,sPS (5,195) 0 $ PutCrit explosiveBarrel
-            ,sPS (0,200) 0 $ PutCrit explosiveBarrel
-            ,sPS (-4,195) 0 $ PutCrit explosiveBarrel
-            ,sPS (0,0) 0 $ PutCrit (cr & crState . crDropsOnDeath .~ DropAll)
+            [sPS (V2 0 175) 0 $ PutCrit explosiveBarrel
+            ,sPS (V2 5 195) 0 $ PutCrit explosiveBarrel
+            ,sPS (V2 0 200) 0 $ PutCrit explosiveBarrel
+            ,sPS (V2 (-4) (195)) 0 $ PutCrit explosiveBarrel
+            ,sPS (V2 0 0) 0 $ PutCrit (cr & crState . crDropsOnDeath .~ DropAll)
             ]
     r <- centerVaultRoom drID 200 200 50 <&> rmPS %~ (extraPS ++)
     randomiseLinksBy shuffleTail r <&> rmLinks %~ take 2