Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,17 +1,16 @@
-module Dodge.PressPlate
-    where
-import Dodge.Data
-import Geometry
+module Dodge.PressPlate where
+
 import Dodge.Base.You
+import Dodge.Data.World
 import Dodge.WorldEvent.Explosion
+import Geometry

 doPressPlateEvent :: PressPlateEvent -> PressPlate -> World -> World
 doPressPlateEvent ppe = case ppe of
-    PressPlateId -> const id 
+    PressPlateId -> const id
    PPLevelReset -> ppLevelReset

 ppLevelReset :: PressPlate -> World -> World
 ppLevelReset pp w
-    | dist (_crPos $ you w) (_ppPos pp) < 20 = makeExplosionAt (_ppPos pp) w 
+    | dist (_crPos $ you w) (_ppPos pp) < 20 = makeExplosionAt (_ppPos pp) w
    | otherwise = w
-