Cleanup

src/Dodge/Item/Weapon/TriggerType.hs

@@ -502,10 +502,9 @@ crAtMuzPos f it cr = f it (cr & crPos +.+.~ (aimingMuzzlePos cr it *.* unitVecto
  - rotation amount given by inaccuracy in itParams
 -}
 applyInaccuracy :: ChainEffect
-applyInaccuracy f it cr w = f it (cr & crDir +~ a) $ set randGen g w
+applyInaccuracy f it = withRandomDirI acc f it
   where
     acc = _brlInaccuracy . _gunBarrels $ _itParams it
-    (a, g) = randomR (- acc, acc) $ _randGen w
 
 -- | Applies the effect to a randomly rotated creature.
 withRandomDirI ::