Move main to allow for new executables

src/Dodge/Render.hs

@@ -55,7 +55,7 @@ doDrawing pdata w = do
     nSils <- pokePoint3s (shadVBOptr $ _lightingLineShadowShader pdata) 
                 (_foregroundEdgeVerx w)
     -- poke foreground geometry and floor
-    let addC (V2 xx yy) = (V3 xx yy 0)
+    let addC (V2 xx yy) = V3 xx yy 0
     nsurfVs <- pokePoint3s (shadVBOptr $ _lightingSurfaceShader pdata)
         $ polyToTris (map addC $ screenPolygon w)
         ++ concatMap polyToGeoRender (foregroundPics w)
@@ -155,7 +155,7 @@ doDrawing pdata w = do
             drawShader (_fullscreenShader pdata) 4
         rds -> do
             let bindDrawDist :: (Point2,Point2,Point2,Float) -> IO ()
-                bindDrawDist ((V2 a b),(V2 c d),(V2 e f),g) = do
+                bindDrawDist ( V2 a b , V2 c d , V2 e f , g) = do
                     pokeArray (shadVBOptr $ _barrelShader pdata)
                         [a,b,c,d,e,f,g]
                     bindShaderBuffers [_barrelShader pdata] [1]