Fix wall normals

2023-03-16 23:31:17 +00:00
parent 100fdc102d
commit 539cbe8b18
11 changed files with 32 additions and 46 deletions
@@ -93,4 +93,4 @@ addUniforms uniStrings shad = do foldM addUniform shad uniStrings
 addUniform :: FullShader -> String -> IO FullShader
 addUniform shad unistr = BS.useAsCString (pack unistr) $ \cstr -> do
    loc <- glGetUniformLocation (_shadName shad) cstr
-    return $ shad & shadUnis' %~ (V.++ V.fromList [loc])
+    return $ shad & shadUnis %~ (V.++ V.fromList [loc])