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