Complete stritifying points

src/Dodge/Initialisation.hs

@@ -10,6 +10,7 @@ import Dodge.Story
 import Dodge.WorldEvent.Cloud
 import Dodge.SoundLogic
 import Dodge.SoundLogic.Synonyms
+import Geometry.Data
 
 import System.Random
 import qualified Data.Set as S
@@ -26,7 +27,7 @@ firstWorld = do
 initialWorld :: World
 initialWorld = defaultWorld
     { _keys = S.empty
-    , _cameraCenter = (0,0)
+    , _cameraCenter = (V2 0 0)
     , _cameraRot = 0
     , _cameraZoom = 10
     , _creatures = IM.fromList [(0,startCr)]
@@ -35,10 +36,10 @@ initialWorld = defaultWorld
     , _forceFields = IM.empty
     , _floorItems = IM.empty
     , _randGen = mkStdGen 2
-    , _mousePos = (0,0)
+    , _mousePos = (V2 0 0)
     , _testString = []
     , _yourID = 0
-    , _worldEvents = soundOncePos foamSprayFadeOutSound (0,0) . foldr ((.) . makeStartCloudAt) id [(x,y) | x <- [-5,-3..5] , y <- [-5,-3..5]]
+    , _worldEvents = soundOncePos foamSprayFadeOutSound (V2 0 0) . foldr ((.) . makeStartCloudAt) id [(V2 x y) | x <- [-5,-3..5] , y <- [-5,-3..5]]
     , _pressPlates = IM.empty
     , _buttons = IM.empty
     , _soundQueue = []