Create post world load function

2023-03-18 09:37:09 +00:00
parent d8fb7a1f99
commit 77c88f68a7
14 changed files with 80 additions and 48 deletions
@@ -58,7 +58,6 @@ readSaveSlot ss = do
    path uv = uv ^. uvWorld . cWorld . pathGraph
    removescreenlayers = Just . (uvScreenLayers .~ [])

-
 saveSlotPath :: SaveSlot -> String
 saveSlotPath (SaveSlotNum i) = "saveSlot/" ++ show i
 saveSlotPath QuicksaveSlot = "saveSlot/QuickSave"