Refactor concurrent side effects

2022-10-30 14:55:30 +00:00
parent 11e873ea48
commit 624a4c3bcd
10 changed files with 56 additions and 47 deletions
@@ -26,14 +26,9 @@ fixedCoordPictures u =
    cfig = _uvConfig u

 drawConcurrentMessage :: Universe -> Picture
-drawConcurrentMessage u = case u ^. uvConcEffects of
-    BlockingConcEffect str -> fillWidthText cfig str
-    --listPicturesAt
-    --(halfWidth cfig)
-    --(halfHeight cfig)
-    --cfig
-    --[centerText str]
-    BackgroundConcEffect str ->
+drawConcurrentMessage u = case u ^? uvSideEffects . _head of
+    --Just (BlockingConcEffect str) -> fillWidthText cfig str
+    Just (RunningSideEffect str) ->
        listPicturesAt
            (halfWidth cfig)
            (_windowY cfig - 50)