Cleanup: remove uniforms from shader datatype

src/Shader/AuxAddition.hs

@@ -2,7 +2,6 @@ module Shader.AuxAddition
     ( addSamplerTexture2D
     , vaddTextureNoFilter
     , addTextureArray
-    , addUniforms
     , initTexture2D
     , initTexture2DArray
     , tilesToLine -- ^ kept in case it is needed in the future
@@ -10,10 +9,6 @@ module Shader.AuxAddition
 import Data.Preload.Render
 import Unsafe.Coerce
 import Shader.Data
-import Control.Monad
-import qualified Data.ByteString as BS
-import Data.ByteString.Char8 (pack)
-import qualified Data.Vector as V
 import Data.List.Extra
 import Codec.Picture
 import qualified Data.Vector.Storable as VS
@@ -142,11 +137,3 @@ tilesToLine
     -> [a]
     -> [a]
 tilesToLine n w = concat . concat . transpose . chunksOf n . chunksOf w
-
-addUniforms :: [String] -> FullShader -> IO FullShader
-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])