Allow for concurrent effects

src/Dodge/Concurrent.hs

@@ -0,0 +1,10 @@
+module Dodge.Concurrent where
+
+import Dodge.Data.Universe
+--import qualified Data.Set as S
+--import Control.Lens
+--import Control.Concurrent
+--import SDL.Input.Keyboard.Codes
+
+conTest :: Universe -> Maybe (IO (Universe -> Universe))
+conTest = _uvConcEffects