Correct loading of tile buffer when loading game

src/Dodge/Concurrent.hs

@@ -2,10 +2,12 @@ module Dodge.Concurrent
     ( hardQuit
     , addSideEffect
     , conEffects
+    , blockingLoad
     ) where
 
 --import qualified Data.Set as S
-import Control.Lens
+import Dodge.Menu.Loading
+import LensHelp
 import Dodge.Data.Universe
 import Data.Sequence (Seq (..))
 
@@ -32,6 +34,11 @@ addSideEffect f s = uvSideEffects %~ (|> NewSideEffect f s)
 
 hardQuit :: Universe -> Universe
 hardQuit = uvSideEffects %~ (HardQuit <|)
+
+blockingLoad :: String -> IO (Universe -> Maybe Universe) -> Universe -> Universe
+blockingLoad str f u = u & uvScreenLayers .:~ loadingScreen str
+    & addSideEffect f str
+
 --hardQuit = addSideEffect (return $ const Nothing) "QUITTING"
 
 --tryConcEffect :: Bool -> String -> IO (Universe -> Maybe Universe) -> Universe -> Universe