Add text messages on loading screens

src/Dodge/Concurrent.hs

@@ -32,9 +32,10 @@ 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
+blockingLoad 
+    :: [String] -> String -> IO (Universe -> Maybe Universe) -> Universe -> Universe
+blockingLoad p str f u =
+    u & uvScreenLayers .:~ LoadingScreen p LoadWaiting
         & addSideEffect f str
 
 --hardQuit = addSideEffect (return $ const Nothing) "QUITTING"
@@ -53,15 +54,3 @@ blockingLoad str f u =
 --    f <- eff
 --    return (f . (uvConcEffects .~ NoConcEffect))
 
-loadingScreen :: String -> ScreenLayer
-loadingScreen str =
-    OptionScreen
-        { _scTitle = str
-        , _scOptions = mempty
-        , _scOffset = 0
-        , _scPositionedMenuOption = NoExtraMenuOption
-        , _scOptionFlag = LoadingScreen
-        , _scSelectionList = mempty
-        , _scAvailableLines = 0
-        , _scDisplayTime = 0
-        }