Hlinting

src/Picture/Render.hs

@@ -154,11 +154,11 @@ createLightMap pdata rot zoom (tranx,trany) (winx,winy) wallPoints lightPoints
 -- bind buffer for floor light circle
         let lightPtr = (\(_,ptr,_) -> ptr) $ head 
                             $ _vaoBufferTargets $ _shaderVAO $ _lightSourceShader pdata
-            (x',y') = zTran $ rotateV (0 - rot) $ (x,y) -.- (tranx,trany)
+            (x',y') = zTran $ rotateV (negate rot) $ (x,y) -.- (tranx,trany)
             zTran (a,b) = (a*2*zoom / winx, b*2*zoom / winy)
         pokeFourOff lightPtr 0 (x',y',r,lum)
 -- stencil out walls
-        colorMask $= (Color4 Disabled Disabled Disabled Disabled)
+        colorMask $= Color4 Disabled Disabled Disabled Disabled
         clear [StencilBuffer]
         cullFace $= Just Back
         stencilOp $= (OpKeep,OpKeep,OpIncr)