Attempt to improve perfomance

2022-08-25 09:52:12 +01:00
parent 6973663055
commit 920bfdbc8e
18 changed files with 60 additions and 311 deletions
@@ -9,8 +9,10 @@ module Dodge.Data.Universe (
    module Dodge.Data.World,
    module Data.Preload,
    module Picture.Data,
+    module Loop.Data
 ) where

+import Loop.Data
 import Control.Lens
 --import qualified Data.Map.Strict as M
 import Data.Preload
@@ -34,7 +36,7 @@ data Universe = Universe
    }

 data ConcEffect = NoConcEffect
-    | NewConcEffect {_ceFunction :: (Universe -> Universe, IO (Universe -> Maybe Universe))
+    | NewConcEffect {_ceFunction :: ConcurrentEffect Universe
        , _ceString :: String, _ceIsBlocking :: Bool}
    | BlockingConcEffect {_ceString :: String}
    | BackgroundConcEffect {_ceString :: String}