More strictifiiiying

src/Dodge/Creature/State.hs

@@ -58,7 +58,7 @@ stateUpdate u w (f,g) cr =
             . dropByState cr
     --crBeforeDeath = colCrWall w cr
     addCorpse = IM.insertNewKey 
-        $ uncurry translate (_crOldPos cr) 
+        $ uncurryV translate (_crOldPos cr) 
         $ rotate (_crDir cr)
         (_crCorpse cr)
 -- | Drop items according to the creature state.
@@ -78,7 +78,7 @@ Given a creature and a velocity, applies friction to that creature and evaluates
 velocity to carry across frames.
 -}
 crFriction :: Creature -> Point2 -> Point2
-crFriction _ _ = (0,0)
+crFriction _ _ = (V2 0 0)
 
 doDamage :: Creature -> Creature
 doDamage cr = set (crState . crDamage) []