18 lines
417 B
Haskell
18 lines
417 B
Haskell
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
|