Work on debugging

src/Dodge/Debug.hs

@@ -7,7 +7,7 @@ import qualified Data.Set as S
 
 debugEvents :: Universe -> Universe
 debugEvents u = case dbools ^. at Enable_debug of
-    Nothing -> u 
+    Nothing -> u
     Just () -> S.foldr debugEvent u dbools
   where
     dbools = u ^. uvConfig . debug_booleans
@@ -20,5 +20,6 @@ debugEvent db u = case db of
 collisionDebugItem :: Universe -> DebugItem
 collisionDebugItem u = DebugItem
     { _debugPic = drawCollisionTest $ u ^. uvWorld
-    , _debugInfo = []
+    , _debugMessage = ["Collision test:","asdf"]
+    , _debugInfo = NoDebugInfo
     }