More strictifiiiying

src/Dodge/Creature/LauncherCrit.hs

@@ -16,7 +16,7 @@ import Dodge.Creature.State
 --import Dodge.Creature.State.Data
 import Dodge.Item.Weapon.Launcher
 --import Dodge.Item.Consumable
---import Geometry
+import Geometry.Data
 import Picture
 
 import qualified Data.IntMap.Strict as IM
@@ -37,7 +37,7 @@ launcherCrit = defaultCreature
         >=> reloadOverrideR
         >=> targetYouWhenCognizantR
         >=> overrideInternalR    
-            (onBoth (&&) crHasTarget (crStratConMatches (GetTo (0,0))))
+            (onBoth (&&) crHasTarget (crStratConMatches (GetTo (V2 0 0))))
             (\ _ -> crActionPlan . crStrategy .~ WatchAndWait)
     , _crActionPlan = ActionPlan
         { _crImpulse    = []