Refactor doors

src/Dodge/Room/NoNeedWeapon.hs

@@ -27,7 +27,7 @@ centerVaultExplosiveExit
     :: RandomGen g 
     => Int      -- ^ Door id
     -> State g Room
-centerVaultExplosiveExit drID = do
+centerVaultExplosiveExit drid = do
     cr <- takeOne [miniGunCrit, autoCrit]
     let extraPS = 
             [sPS (V2 0 175) 0 $ PutCrit explosiveBarrel
@@ -36,5 +36,5 @@ centerVaultExplosiveExit drID = do
             ,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 ++)
+    r <- centerVaultRoom drid 200 200 50 <&> rmPS %~ (extraPS ++)
     randomiseLinksBy shuffleTail r <&> rmLinks %~ take 2