Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15105 additions and 13343 deletions
@@ -1,21 +1,23 @@
-module Dodge.Default.Shell
-    where
-import Dodge.Data
+module Dodge.Default.Shell where
+
+import Dodge.Data.Item.Use.Consumption.Ammo
+import Dodge.Data.Projectile
 import Geometry.Data

 defaultShell :: Proj
-defaultShell = Shell
-    { _prjPos = V2 0 0
-    , _prjZ   = 20
-    , _prjStartPos = V2 0 0
-    , _prjVel = V2 0 0
-    , _prjAcc = V2 0 0
-    , _prjDir = 0
-    , _prjSpin = 0
-    , _prjDraw = DrawShell
-    , _prjID = 0
-    , _prjTimer = 0
-    , _prjPayload = ExplosionPayload
-    , _prjUpdates = []
-    , _prjMITID = Nothing
-    }
+defaultShell =
+    Shell
+        { _prjPos = V2 0 0
+        , _prjZ = 20
+        , _prjStartPos = V2 0 0
+        , _prjVel = V2 0 0
+        , _prjAcc = V2 0 0
+        , _prjDir = 0
+        , _prjSpin = 0
+        , _prjDraw = DrawShell
+        , _prjID = 0
+        , _prjTimer = 0
+        , _prjPayload = ExplosionPayload
+        , _prjUpdates = []
+        , _prjMITID = Nothing
+        }