More strictifiiiying

src/Dodge/Creature.hs

@@ -44,7 +44,7 @@ import Dodge.Creature.Rationality
 --import Dodge.Item
 import Dodge.Picture.Layer
 import Picture
---import Geometry
+import Geometry.Data
 import qualified IntMapHelp as IM
 
 --import Data.List
@@ -140,8 +140,8 @@ addArmour = over crInv insarmour
 ID 0.  -}
 startCr :: Creature
 startCr = defaultCreature
-    { _crPos = (0,0)
-    , _crOldPos = (0,0)
+    { _crPos = (V2 0 0)
+    , _crOldPos = (V2 0 0)
     , _crDir = pi/2
     , _crMvDir  = pi/2
     , _crID = 0