Move towards serializing saves/loads faster

src/Dodge/Render/Picture.hs

@@ -2,6 +2,7 @@ module Dodge.Render.Picture (
     fixedCoordPictures,
 ) where
 
+import Control.Lens
 import Dodge.Base.WinScale
 import Dodge.Base.Window
 import Dodge.Data.Universe
@@ -10,7 +11,6 @@ import Dodge.Render.List
 import Dodge.Render.MenuScreen
 import Geometry
 import Picture
-import Control.Lens
 
 fixedCoordPictures :: Universe -> Picture
 fixedCoordPictures u =
@@ -27,16 +27,18 @@ fixedCoordPictures u =
 
 drawConcurrentMessage :: Universe -> Picture
 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]
+    BlockingConcEffect str -> fillWidthText cfig str
+    --listPicturesAt
+    --(halfWidth cfig)
+    --(halfHeight cfig)
+    --cfig
+    --[centerText str]
+    BackgroundConcEffect str ->
+        listPicturesAt
+            (halfWidth cfig)
+            (_windowY cfig - 50)
+            cfig
+            [centerText str]
     _ -> mempty
   where
     cfig = _uvConfig u