Refactor light sources

2021-11-28 16:53:26 +00:00
parent 1d9dd3e4e0
commit 618653a86e
28 changed files with 169 additions and 155 deletions
@@ -58,11 +58,11 @@ firstWorldLoad theConfig = do
    w <- generateWorldFromSeed 0
    return $ Universe 
        {_uvWorld = w
-            & keyConfig .~ theKeyConfig
            & config .~ theConfig
        ,_preloadData = pdata
        ,_menuLayers = []
        ,_savedWorlds = M.empty
+        ,_keyConfig = theKeyConfig
        }

 theUpdateStep :: Universe -> IO Universe