Refactor light sources

2021-11-28 16:53:26 +00:00
parent 1d9dd3e4e0
commit 618653a86e
28 changed files with 169 additions and 155 deletions
@@ -7,13 +7,10 @@ module Dodge.Save
 import Dodge.Data

 import qualified Data.Map.Strict as M
-import Data.Maybe
+--import Data.Maybe
 import Control.Lens
 import qualified Data.Set as S

-clearSaves :: Universe -> Universe
-clearSaves = savedWorlds .~ M.empty
-
 saveWorldInEmptySlot :: SaveSlot -> Universe -> Universe
 saveWorldInEmptySlot slot w = case M.lookup slot $ _savedWorlds w of
    Nothing -> w & savedWorlds %~ M.insert slot (clearKeys (_uvWorld w))