Move main to allow for new executables

src/Dodge/Default/Shell.hs

@@ -6,10 +6,10 @@ import Geometry.Data
 
 defaultShell :: Projectile
 defaultShell = Shell
-    { _pjPos = (V2 0 0)
-    , _pjStartPos = (V2 0 0)
-    , _pjVel = (V2 0 0)
-    , _pjAcc = (V2 0 0)
+    { _pjPos = V2 0 0
+    , _pjStartPos = V2 0 0
+    , _pjVel = V2 0 0
+    , _pjAcc = V2 0 0
     , _pjDir = 0
     , _pjSpin = 0
     , _pjDraw = const blank

src/Dodge/Default/Wall.hs

@@ -7,7 +7,7 @@ import Geometry.Data
 {- Indestructible wall.  -}
 defaultWall :: Wall
 defaultWall = Wall 
-    { _wlLine = ((V2 0 0),(V2 50 0))
+    { _wlLine = (V2 0 0,V2 50 0)
     , _wlID = 0
     , _wlColor = greyN 0.6
     , _wlSeen = False
@@ -16,7 +16,7 @@ defaultWall = Wall
 {- Indestructible see-through wall.  -}
 defaultCrystalWall :: Wall
 defaultCrystalWall = Wall 
-    { _wlLine = ((V2 0 0),(V2 50 0))
+    { _wlLine = (V2 0 0,V2 50 0)
     , _wlID = 0
     , _wlColor = withAlpha 0.5 aquamarine
     , _wlSeen = False
@@ -26,26 +26,26 @@ defaultCrystalWall = Wall
 Pathable.  -}
 defaultAutoDoor :: Wall
 defaultAutoDoor = Door 
-    { _wlLine = ((V2 0 0),(V2 50 0))
+    { _wlLine = (V2 0 0,V2 50 0)
     , _wlID = 0
     , _doorMech = id
     , _wlColor = light $ dim $ dim $ dim yellow
     , _wlSeen = False
     , _wlIsSeeThrough = False
     , _doorPathable = True
-    , _drPositions = DS.singleton ((V2 0 0),(V2 50 0))
+    , _drPositions = DS.singleton (V2 0 0,V2 50 0)
     }
 {-
 Non-pathable door.
  -}
 defaultDoor :: Wall
 defaultDoor = Door 
-    { _wlLine = ((V2 0 0),(V2 50 0))
+    { _wlLine = (V2 0 0,V2 50 0)
     , _wlID = 0
     , _doorMech = id
     , _wlColor = light $ dim $ dim $ dim yellow
     , _wlSeen = False
     , _wlIsSeeThrough = False
     , _doorPathable = False
-    , _drPositions = DS.singleton ((V2 0 0),(V2 50 0))
+    , _drPositions = DS.singleton (V2 0 0,V2 50 0)
     }

src/Dodge/Default/World.hs

@@ -20,10 +20,10 @@ defaultWorld :: World
 defaultWorld = World
     { _keys = S.empty
     , _mouseButtons = S.empty
-    , _cameraCenter = (V2 0 0)
+    , _cameraCenter = V2 0 0
     , _cameraRot = 0
     , _cameraZoom = 1
-    , _cameraViewFrom = (V2 0 0)
+    , _cameraViewFrom = V2 0 0
     , _creatures = IM.empty
     , _creaturesZone = IM.empty
     , _creatureGroups = IM.empty
@@ -40,7 +40,7 @@ defaultWorld = World
     , _floorItems = IM.empty
     , _floorTiles = []
     , _randGen = mkStdGen 2
-    , _mousePos = (V2 0 0)
+    , _mousePos = V2 0 0
     , _testString = []
     , _yourID = 0
     , _worldEvents = id
@@ -54,13 +54,13 @@ defaultWorld = World
     , _menuLayers = [LevelMenu 1]
     , _worldState = M.empty
     , _worldTriggers = S.empty
-    , _clickMousePos = (V2 0 0)
+    , _clickMousePos = V2 0 0
     , _pathGraph = Data.Graph.Inductive.Graph.empty
     , _pathGraph' = []
     , _pathPoints = IM.empty
     , _pathInc = M.empty
     , _carteDisplay = False
-    , _carteCenter = (V2 0 0)
+    , _carteCenter = V2 0 0
     , _carteZoom = 0.5
     , _carteRot  = 0
     , _lightSources = IM.empty
@@ -89,10 +89,10 @@ defaultDebugFlags = DebugFlags
     }
 youLight :: TempLightSource
 youLight = 
-    TLS { _tlsPos = (V3 0 0 0)
+    TLS { _tlsPos = V3 0 0 0
         ,_tlsRad = 300
         ,_tlsIntensity = 0.1
         ,_tlsUpdate = \w _ -> (w, Just (youLight {_tlsPos = f $ _crPos (you w)}))
         }
   where
-    f (V2 x y) = (V3 x y 0)
+    f (V2 x y) = V3 x y 0