Lint
This commit is contained in:
@@ -30,7 +30,7 @@ makeShrapnelAt p v w =
|
||||
& cWorld . lWorld . bullets .++~ buls
|
||||
where
|
||||
-- speed = magV v
|
||||
vs = replicateM 75 (randInCirc $ 10) & evalState $ _randGen w
|
||||
vs = replicateM 75 (randInCirc 10) & evalState $ _randGen w
|
||||
drags :: [Float]
|
||||
drags = replicateM 75 (state $ randomR (0.85,0.9)) & evalState $ _randGen w
|
||||
buls = zipWith f vs drags
|
||||
|
||||
Reference in New Issue
Block a user