Cleanup, remove jetpack

src/Dodge/LightSource/Torch.hs

@@ -1,7 +1,7 @@
-module Dodge.LightSource.Torch where
+module Dodge.LightSource.Torch 
+    ( createTorchLightOffset
+    ) where
 
-import Color
-import Dodge.WorldEvent.Flash
 import Dodge.Data.World
 import Dodge.Item.Draw -- heldItemOffset needs to be moved somewhere more sensible
 import Dodge.LightSource -- this needs to be split!
@@ -9,14 +9,8 @@ import Geometry
 import LensHelp
 
 createTorchLightOffset :: Creature -> Item -> Point3 -> World -> World
-createTorchLightOffset cr it off =
-    (cWorld . lWorld . tempLightSources
-        .:~ tlsTimeRadColPos
-            1
-            250
-            0.7
-            pos
-    )
+createTorchLightOffset cr it off = cWorld . lWorld . tempLightSources .:~ 
+    tlsTimeRadColPos 1 250 0.7 pos
   where
     pos = (p +.+.+ rotate3 (_crDir cr) (heldItemOffset it cr (off +.+.+ V3 8 0 1.5)))
     p = addZ 0 $ _crPos cr