Allow shadow fidelity option, fix bug in rendering box shadows

src/Render.hs

@@ -27,7 +27,6 @@ import Shader.Data
 -}
 createLightMap ::
     Configuration ->
-    ShadowRendering ->
     -- | number of walls
     GLsizei ->
     -- | number of silhoutte lines to draw
@@ -41,11 +40,13 @@ createLightMap ::
     [(Point3, Float, Point3)] -> -- Lights
     RenderData ->
     IO ()
-createLightMap cfig shadrendertype = case shadrendertype of
+createLightMap cfig = case shadrendertype of
     InstancingShads -> instanceLightMap cfig
     NoShadows -> const . const . const renderLightingNoShadows
     NoLighting -> const . const . const . const . const . const renderFlatLighting
     _ -> renderShadows shadrendertype
+  where
+    shadrendertype = cfig ^. graphics_shadow_rendering
 
 renderLightingNoShadows ::
     TO ->