{-# LANGUAGE StrictData #-} --{-# LANGUAGE TemplateHaskell #-} module Dodge.Data.Object where import Dodge.Data.Wall import Dodge.Data.Creature import Dodge.Data.PulseLaser data Object = OPulseBall PulseBall | OCreature Creature | OWall Wall | OFloor | OChasmWall