Refactor concurrent side effects

src/Dodge/Update.hs

@@ -93,7 +93,6 @@ updateUniverseLast = over uvWorld (input . mouseButtons . each .~ True) -- to de
 {- For most menus the only way to change the world is using event handling.  -}
 updateUniverseMid :: Universe -> Universe
 updateUniverseMid u
-    | concurrentblocking = u
     | otherwise = case _uvScreenLayers u of
         (OptionScreen{_scOptionFlag = GameOverOptions} : _) ->
             u & uvWorld
@@ -106,10 +105,6 @@ updateUniverseMid u
                    )
         (_ : _) -> u
         [] -> functionalUpdate'' u
-  where
-    concurrentblocking = case u ^. uvConcEffects of
-        BlockingConcEffect{} -> True
-        _ -> False
 
 functionalUpdate'' :: Universe -> Universe
 functionalUpdate'' = advanceScrollAmount . functionalUpdate'