Work on saving/loading concurrently

src/Dodge/Render/Picture.hs

@@ -2,18 +2,19 @@ module Dodge.Render.Picture (
     fixedCoordPictures,
 ) where
 
-import Dodge.Base.Window
-import Dodge.Render.List
 import Dodge.Base.WinScale
+import Dodge.Base.Window
 import Dodge.Data.Universe
 import Dodge.Render.HUD
+import Dodge.Render.List
 import Dodge.Render.MenuScreen
 import Geometry
 import Picture
+import Control.Lens
 
 fixedCoordPictures :: Universe -> Picture
 fixedCoordPictures u =
-    drawConcurrentMessage u <> case _menuLayers u of
+    drawConcurrentMessage u <> case u ^. uvScreenLayers of
         [] ->
             pictures
                 [ hudDrawings u
@@ -25,9 +26,20 @@ fixedCoordPictures u =
     cfig = _uvConfig u
 
 drawConcurrentMessage :: Universe -> Picture
-drawConcurrentMessage uv = listPicturesAt (halfWidth cfig) (_windowY cfig - 50) cfig [text (_uvConcMessage uv)]
+drawConcurrentMessage u = case u ^. uvConcEffects of
+    BlockingConcEffect str -> listPicturesAt
+        (halfWidth cfig)
+        (halfHeight cfig)
+        cfig
+        [text str]
+    BackgroundConcEffect str -> listPicturesAt
+        (halfWidth cfig)
+        (_windowY cfig - 50)
+        cfig
+        [text str]
+    _ -> mempty
   where
-    cfig = _uvConfig uv
+    cfig = _uvConfig u
 
 customMouseCursor :: Configuration -> World -> Picture
 customMouseCursor cfig w =