Move main to allow for new executables

src/Dodge/Default.hs

@@ -22,9 +22,9 @@ import Data.List
 
 defaultCreature :: Creature
 defaultCreature = Creature
-    { _crPos    = (V2 0 0)
-    , _crOldPos = (V2 0 0)
-    , _crVel    = (V2 0 0)
+    { _crPos    = V2 0 0
+    , _crOldPos = V2 0 0
+    , _crVel    = V2 0 0
     , _crDir    = 0
     , _crMvDir  = 0
     , _crID     = 1
@@ -127,7 +127,7 @@ applyIndividualDamage (PushDam amount pback) cr
 applyIndividualDamage dt cr 
     = ( id , over crHP (\hp -> hp - _dmAmount dt) cr )
 defaultFlIt :: FloorItem
-defaultFlIt = FlIt {_flItRot=0,_flIt = defaultIt, _flItPos = (V2 0 0), _flItID = 0}
+defaultFlIt = FlIt {_flItRot=0,_flIt = defaultIt, _flItPos = V2 0 0, _flItID = 0}
 defaultIt :: Item
 defaultIt = Consumable
     { _itIdentity = Medkit25
@@ -147,7 +147,7 @@ defaultIt = Consumable
 defaultButton :: Button
 defaultButton = Button
     { _btPict = onLayer WlLayer $ color red $ polygon $ rectNSEW 5 (-5) 10 (-10)
-    , _btPos = (V2 0 0)
+    , _btPos = V2 0 0
     , _btRot = 0
     , _btEvent = \b w -> 
         set (buttons . ix (_btID b) . btPict) (onLayer WlLayer $ color red $ polygon $ rectNSEW (-4) (-5) 10 (-10))
@@ -159,9 +159,9 @@ defaultButton = Button
     }
 defaultPT :: Projectile
 defaultPT = Projectile
-    { _pjPos = (V2 0 0)
-    , _pjStartPos = (V2 0 0)
-    , _pjVel = (V2 0 0)
+    { _pjPos = V2 0 0
+    , _pjStartPos = V2 0 0
+    , _pjVel = V2 0 0
     , _pjDraw = const blank
     , _pjID = 0
     , _pjUpdate = const id
@@ -169,7 +169,7 @@ defaultPT = Projectile
 defaultPP :: PressPlate
 defaultPP = PressPlate
     { _ppPict = onLayer PressPlateLayer $ color (dim $ dim $ bright blue) $ circleSolid 5
-    , _ppPos = (V2 0 0)
+    , _ppPos = V2 0 0
     , _ppRot = 0
     , _ppEvent = const id
     , _ppID = -1