More hlinting

This commit is contained in:
2025-12-21 19:27:49 +00:00
parent 2fbaa47c0b
commit 51c52ace7d
18 changed files with 41 additions and 46 deletions
+1 -1
View File
@@ -77,6 +77,6 @@ makeExplosionAt p vel w =
fdamps = replicateM 100 (state $ randomR (0, 1)) & evalState $ _randGen w
sizes = randomRs (2, 9) $ _randGen w
times = randomRs (15, 20) $ _randGen w
mF v damp size time = makeFlamelet p (v + damp *^ vel) size time
mF v damp = makeFlamelet p (v + damp *^ vel)
newFs = zipWith4 mF fVs fdamps sizes times
addFlames w' = foldl' (&) w' newFs