Move towards simplifying impulses

2022-08-23 08:33:14 +01:00
parent faf75f4fe7
commit 12ce2365c2
2 changed files with 2 additions and 24 deletions
@@ -102,7 +102,7 @@ updateRenderSplit :: Universe -> IO Universe
 updateRenderSplit u = do
    let preData = _preloadData u
    updateUniverse u `par` void (doDrawing (_renderData preData) u)
-    return (updateUniverse u)
+    return $! updateUniverse u

 playSoundUnlessRewinding :: Universe -> IO (M.Map SoundOrigin Sound)
 playSoundUnlessRewinding u