Implement (not fully working) alternate shadow volumes

src/Shader/Compile.hs

@@ -35,7 +35,7 @@ makeShader s shaderlist sizes pm = do
         , _shadVAO  = vaob
         , _shadPrim = pm
         , _shadTex  = Nothing
-        , _shadUnis = []
+        , _shadUnis = mempty
         }
 makeByteStringShader
     :: String       -- ^ (Arbitrary) name of the shader
@@ -51,7 +51,7 @@ makeByteStringShader s shaderlist sizes pm = do
         , _shadVAO  = vaob
         , _shadPrim = pm
         , _shadTex  = Nothing
-        , _shadUnis = []
+        , _shadUnis = mempty
         }
 makeByteStringShaderUsingVAO
     :: String       -- ^ (Arbitrary) name of the shader
@@ -65,7 +65,7 @@ makeByteStringShaderUsingVAO s shaderlist pm fs = do
         { _shadProg = prog
         , _shadPrim = pm
         , _shadTex  = Nothing
-        , _shadUnis = []
+        , _shadUnis = mempty
         }
 
 -- | Takes the VAO from elsewhere
@@ -82,7 +82,7 @@ makeShaderUsingVAO s shaderlist pm theVAO = do
         , _shadVAO = theVAO
         , _shadPrim = pm
         , _shadTex  = Nothing
-        , _shadUnis = []
+        , _shadUnis = mempty
         }
 
 -- | Takes the VAO from another shader
@@ -98,7 +98,7 @@ makeShaderUsingShaderVAO s shaderlist pm fs = do
         { _shadProg = prog
         , _shadPrim = pm
         , _shadTex  = Nothing
-        , _shadUnis = []
+        , _shadUnis = mempty
         }
 {- | 
 Compiles a full shader found within the shader directory.
@@ -119,7 +119,7 @@ makeShaderSized s shaderlist sizes ndraw pm = do
         , _shadVAO  = vaob
         , _shadPrim = pm
         , _shadTex  = Nothing
-        , _shadUnis = []
+        , _shadUnis = mempty
         }
 
 -- | Compile shader and get its uniform locations.