module Mischief.ECS.World.Prefs where

newtype WorldPrefs = WorldPrefs
  { WorldPrefs -> Bool
supressEvents :: Bool
  }

newPrefs :: WorldPrefs
newPrefs :: WorldPrefs
newPrefs =
  WorldPrefs
    { supressEvents :: Bool
supressEvents = Bool
False
    }

supressEvents :: Bool -> WorldPrefs -> WorldPrefs
supressEvents :: Bool -> WorldPrefs -> WorldPrefs
supressEvents Bool
b WorldPrefs {} = WorldPrefs {supressEvents :: Bool
supressEvents = Bool
b}