Start simplifying projectile update

src/Dodge/Data/Projectile.hs

@@ -33,9 +33,9 @@ data Projectile = Shell
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data ProjectileUpdate
-    = ThrustPU {_pjuStart :: Int, _pjuEnd :: Int}
-    | StartSpinPU {_pjuTime :: Int, _pjuCID :: Int, _pjuSpinAmound :: Int}
-    | RemoteDirectionPU {_pjuStart :: Int, _pjuEnd :: Int}
+    = --ThrustPU {_pjuStart :: Int, _pjuEnd :: Int}
+     StartSpinPU {_pjuTime :: Int, _pjuCID :: Int, _pjuSpinAmound :: Int}
+--    | RemoteDirectionPU {_pjuStart :: Int, _pjuEnd :: Int}
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
 data ProjectileType