More hlinting
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user