mischief-ecs-0.1.0.0: src/Mischief/ECS/World/Prefs.hs

module Mischief.ECS.World.Prefs where

newtype WorldPrefs = WorldPrefs
  { supressEvents :: Bool
  }

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

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