Refactor, try to limit dependencies

src/Dodge/Item/Weapon/Shell.hs

@@ -1,17 +1,19 @@
-module Dodge.Item.Weapon.Shell
-    ( decTimMvVel
-    ) where
-import Dodge.Data
-import Geometry.Vector
+module Dodge.Item.Weapon.Shell (
+    decTimMvVel,
+) where
 
 import Control.Lens
+import Dodge.Data.World
+import Geometry.Vector
+
 decTimMvVel :: Proj -> World -> World
-decTimMvVel pj = cWorld . projectiles . ix pjid %~
-    ( (prjTimer -~ 1) 
-    . (prjPos   %~ (+.+ vel) )
-    . (prjAcc   %~ rotateV rot )
-    )
+decTimMvVel pj =
+    cWorld . projectiles . ix pjid
+        %~ ( (prjTimer -~ 1)
+                . (prjPos %~ (+.+ vel))
+                . (prjAcc %~ rotateV rot)
+           )
   where
-    rot     = _prjSpin pj
-    vel     = _prjVel pj
-    pjid    = _prjID pj
+    rot = _prjSpin pj
+    vel = _prjVel pj
+    pjid = _prjID pj