Move main to allow for new executables

src/Shader/Compile.hs

@@ -47,7 +47,7 @@ makeShaderUsingShaderVAO
 makeShaderUsingShaderVAO s shaderlist pm fs = do
     prog <- makeSourcedShader s shaderlist
     return $ fs 
-        {_shaderProgram = prog
+        { _shaderProgram = prog
         , _shaderDrawPrimitive = pm
         , _shaderTexture = Nothing
         , _shaderCustomUnis = []
@@ -60,8 +60,7 @@ makeShader
     :: String       -- ^ First part of the name of the shader
     -> [ShaderType] -- ^ Filetype extensions
     -> [Int]   -- ^ The input vertex sizes
-    -> EPrimitiveMode
-    -> IO FullShader
+    -> EPrimitiveMode -> IO FullShader
 makeShader s shaderlist sizes pm = do
     prog <- makeSourcedShader s shaderlist
     vaob <- setupVAO sizes