More strictifiiiying

src/Dodge/Item/Weapon/ExtraEffect.hs

@@ -16,6 +16,7 @@ import Dodge.Picture.Layer
 import Dodge.Creature.Test
 import Picture
 import Geometry.Vector
+import Geometry.Data
 
 import Data.Maybe
 import Control.Lens
@@ -123,11 +124,11 @@ targetRBMousePos w = (f, \_ _ _ w' -> cursorPic w')
   where
     f _ = Just mwp
     mwp = mouseWorldPos w
-    cursorPic w' = setLayer 1 $ onLayer InvLayer $ uncurry translate mwp 
+    cursorPic w' = setLayer 1 $ onLayer InvLayer $ uncurryV translate mwp 
         $ rotate (_cameraRot w')
         $ pictures
-            [line [( x,x), (-x,-x)]
-            ,line [(-x,x), ( x,-x)]
+            [line [( V2 (x) (x)), (V2 (-x) (-x))]
+            ,line [(V2 (-x) (x)), (V2 ( x) (-x))]
             ]
       where
         x = 5 / _cameraZoom w'