Move main to allow for new executables

src/Dodge/Path.hs

@@ -19,9 +19,8 @@ import Control.Monad.State
 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)]
+worldGraph w p = HS.unions $ (\q -> HS.fromList $ pointsAlong w p (p +.+ q)) . toV2
+        <$> [(200,0),(-200,0),(0,200),(0,-200)]
 
 pointsAlong :: World -> Point2 -> Point2 -> [Point2]
 pointsAlong w p q = divideLineFixed 50 p p'
@@ -69,9 +68,9 @@ makeNode e = (HP.singleton (0,(0,[e])) , [])
 
 
 tp1,tp2,tp3 :: Point2
-tp1 = (V2 0 1)
-tp2 = (V2 0 20)
-tp3 = (V2 30 40)
+tp1 = V2 0 1
+tp2 = V2 0 20
+tp3 = V2 30 40
 
 f :: Point2 -> [Point2]
 f = incidenceToFunction $ pairsToIncidence