Move main to allow for new executables

src/Dodge/Update.hs

@@ -110,7 +110,7 @@ updateTriggers w
         & creatures . ix 0 .~ cr
     | otherwise = w
   where
-    cr = _creatures w IM.! 0 & crPos .~ (V2 0 0)
+    cr = _creatures w IM.! 0 & crPos .~ V2 0 0
 
 updateSoundQueue :: World -> World
 updateSoundQueue = set soundQueue [] . set sounds M.empty
@@ -201,7 +201,7 @@ crSpring c w = IM.foldl' (flip $ crCrSpring c) w cs
 crCrSpring :: Creature -> Creature -> World -> World
 crCrSpring c1 c2 w 
     | id1 == id2 = w
-    | vec == (V2 0 0) = w
+    | vec == V2 0 0 = w
     | diff >= comRad = w
     | otherwise = over (creatures . ix id1 . crPos) (+.+ overlap1)
                         $ over (creatures . ix id2 . crPos) (-.- overlap2) w