Add file

src/Dodge/Debug.hs

@@ -0,0 +1,17 @@
+module Dodge.Debug where
+
+import Control.Lens
+import Dodge.Data.Universe
+import qualified Data.Set as S
+
+debugEvents :: Universe -> Universe
+debugEvents u = case dbools ^. at Enable_debug of
+    Nothing -> u 
+    Just () -> S.foldr debugEvent u dbools
+  where
+    dbools = u ^. uvConfig . debug_booleans
+
+debugEvent :: DebugBool -> Universe -> Universe
+debugEvent db u = case db of
+    Collision_test -> u
+    _ -> u