Allow for concurrent effects

src/Dodge/Data/Universe.hs

@@ -10,7 +10,7 @@ module Dodge.Data.Universe (
 ) where
 
 import Control.Lens
-import qualified Data.Map.Strict as M
+--import qualified Data.Map.Strict as M
 import Data.Preload
 import qualified Data.Text as T
 import Dodge.Data.Config
@@ -22,17 +22,14 @@ data Universe = Universe
     { _uvWorld :: World
     , _preloadData :: PreloadData
     , _menuLayers :: [ScreenLayer]
-    , _savedWorlds :: M.Map SaveSlot World
+    , _quickSave :: Maybe World
     , _uvIOEffects :: Universe -> IO Universe
+    , _uvConcEffects :: Maybe (IO (Universe -> Universe))
     , _uvConfig :: Configuration
     , _uvTestString :: Universe -> [String]
+    , _uvConcMessage :: String
     }
 
-data SaveSlot
-    = QuicksaveSlot
-    | LevelStartSlot
-    | SaveSlotNum Int
-    deriving (Eq, Ord, Show, Read)
 
 data OptionScreenFlag = NormalOptions | GameOverOptions
     deriving (Eq, Ord, Show, Read)