Refactor lighting shaders

app/Main.hs

@@ -41,7 +41,7 @@ main = do
         (sizex,sizey)
         (SDL.cursorVisible $= False >> doPreload >>= applyWorldConfig dodgeConfig)
         (\x -> (SDL.cursorVisible $= True) >> cleanUpPreload x)
-        (fmap (setWindowSize sizex sizey theKeyConfig . (config .~ dodgeConfig)) firstWorld)
+        (fmap (setWindowSize sizex sizey . (keyConfig .~ theKeyConfig) . (config .~ dodgeConfig)) firstWorld)
         doSideEffects
         handleEvent
         (Just . update)
@@ -84,8 +84,7 @@ checkForGlErrors = do
     errs <- errors
     unless (null errs) $ putStrLn $ "GLerror during doLoop: " ++ unwords (map show errs)
 
-setWindowSize :: Int -> Int -> KeyConfigSDL-> World -> World
-setWindowSize x y z w = w 
+setWindowSize :: Int -> Int -> World -> World
+setWindowSize x y w = w 
     & config . windowX .~ fromIntegral x
     & config . windowY .~ fromIntegral y
-    & keyConfig .~ z