Further strictifying

2021-07-30 00:23:02 +02:00
parent bd8ef3f416
commit 2d8b27746c
33 changed files with 228 additions and 211 deletions
@@ -2,13 +2,14 @@ module Dodge.Default.Shell
    where
 import Dodge.Data
 import Picture
+import Geometry.Data

 defaultShell :: Projectile
 defaultShell = Shell
-    { _pjPos = (0,0)
-    , _pjStartPos = (0,0)
-    , _pjVel = (0,0)
-    , _pjAcc = (0,0)
+    { _pjPos = (V2 0 0)
+    , _pjStartPos = (V2 0 0)
+    , _pjVel = (V2 0 0)
+    , _pjAcc = (V2 0 0)
    , _pjDir = 0
    , _pjSpin = 0
    , _pjDraw = const blank