Further strictifying

src/Dodge/Path.hs

@@ -20,6 +20,7 @@ import System.Random
 
 worldGraph :: World -> Point2 -> HS.HashSet Point2
 worldGraph w p = HS.unions $ fmap (\q -> HS.fromList $ pointsAlong w p (p +.+ q)) 
+        $ map toV2
                                [(200,0),(-200,0),(0,200),(0,-200)]
 
 pointsAlong :: World -> Point2 -> Point2 -> [Point2]
@@ -68,9 +69,9 @@ makeNode e = (HP.singleton (0,(0,[e])) , [])
 
 
 tp1,tp2,tp3 :: Point2
-tp1 = (0,1)
-tp2 = (0,20)
-tp3 = (30,40)
+tp1 = (V2 0 1)
+tp2 = (V2 0 20)
+tp3 = (V2 30 40)
 
 f :: Point2 -> [Point2]
 f = incidenceToFunction $ pairsToIncidence