justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Refactor

Browse Source
This commit is contained in:
justin
2021-03-24 02:11:33 +01:00
parent 26ac0142b1
commit 03587a7906
7 changed files with 21 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Data.hs
-4
View File
@@ -464,10 +464,6 @@ data Particle' =
, _btTimer' :: Int
}
type HitEffect' = Particle' -> (Point2, (Either3 Creature Wall ForceField)) -> World -> World
type HitEffect'' = Particle' -> [(Point2, (Either3 Creature Wall ForceField))] -> World -> World
type HitEffect = Particle' -> [(Point2, (Either3 Creature Wall ForceField))] -> World
-> (World,Maybe Particle')