Move main to allow for new executables

src/Dodge/LevelGen.hs

@@ -100,7 +100,7 @@ placeSpot ps w = case _psType ps of
     --_   -> w
   where 
     p@(V2 px py) = _psPos ps
-    p' = (V3 px py 0)
+    p' = V3 px py 0
     rot = _psRot ps
 
 -- TODO: remove this typeclass
@@ -196,7 +196,7 @@ placeLS ls dec (V3 x y z) rot w = over lightSources addLS $ over decorations add
   where 
     addLS lss = IM.insert 
         (IM.newKey lss) 
-        (ls {_lsPos = (V3 x y z),_lsDir = rot,_lsID = IM.newKey lss}) 
+        (ls {_lsPos = V3 x y z,_lsDir = rot,_lsID = IM.newKey lss}) 
         lss
     addDec decs = IM.insert 
         (IM.newKey decs)