Cleanup

2024-12-28 10:31:58 +00:00
parent 39a76f758a
commit e028c54948
10 changed files with 91 additions and 102 deletions
@@ -15,17 +15,17 @@ import Geometry.Data

 data Projectile
    = Shell
-        { _prjPos :: Point2
-        , _prjVel :: Point2
-        , _prjDir :: Float
-        , _prjSpin :: Float
-        , _prjID :: Int
-        , _prjPayload :: Payload
-        , _prjTimer :: Int
-        , _prjZ :: Float
-        , _prjZVel :: Float
-        , _prjUpdates :: [ProjectileUpdate]
-        , _prjType :: ProjectileType
+        { _pjPos :: Point2
+        , _pjVel :: Point2
+        , _pjDir :: Float
+        , _pjSpin :: Float
+        , _pjID :: Int
+        , _pjPayload :: Payload
+        , _pjTimer :: Int
+        , _pjZ :: Float
+        , _pjZVel :: Float
+        , _pjUpdates :: [ProjectileUpdate]
+        , _pjType :: ProjectileType
        }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)