Move universe IO effects outside of world

2022-07-23 12:53:20 +01:00
parent 2892bb25f0
commit 12fad676f2
12 changed files with 41 additions and 44 deletions
@@ -169,6 +169,7 @@ data Universe = Universe
    , _menuLayers   :: [ScreenLayer]
    , _savedWorlds  :: M.Map SaveSlot World
    , _keyConfig    :: KeyConfigSDL
+    , _uvIOEffects  :: Universe -> IO Universe
    , _uvConfig     :: Configuration
    , _uvTestString :: Universe -> [String]
    }
@@ -244,7 +245,6 @@ data World = World
    , _rbOptions        :: RightButtonOptions
    , _seenLocations    :: IM.IntMap (WdP2,String)
    , _selLocation      :: Int
-    , _sideEffects      :: Universe -> IO Universe
    , _distortions      :: [Distortion]
    , _worldBounds      :: Bounds
    , _gameRooms        :: [GameRoom] -- consider using an IntMap