Cleanup

2022-06-19 22:46:50 +01:00
parent b3c6944693
commit 8d457033a2
17 changed files with 33 additions and 33 deletions
@@ -62,7 +62,7 @@ armouredChasers = do
    let theCrits = zipWith3 (\p a c -> sPS p a (PutCrit c)) ps as cs
    treeFromPost [corridor,corridor] <$> (randomMediumRoom <&> rmPmnts %~ (++ theCrits))
  where
-    cs = (armourChaseCrit & crState . crDropsOnDeath .~ DropSpecific [0]) 
+    cs = (armourChaseCrit & crState . csDropsOnDeath .~ DropSpecific [0]) 
            : replicate 4 chaseCrit

 randomMediumRoom :: RandomGen g => State g Room