diff --git a/src/Dodge/Data/EnergyBall/Type.hs b/src/Dodge/Data/EnergyBall/Type.hs new file mode 100644 index 000000000..08e123776 --- /dev/null +++ b/src/Dodge/Data/EnergyBall/Type.hs @@ -0,0 +1,21 @@ +{-# LANGUAGE DeriveAnyClass #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TemplateHaskell #-} + +module Dodge.Data.EnergyBall.Type where + +import Control.Lens +import Data.Aeson +import Data.Aeson.TH +import Geometry.Data + +data EnergyBallType + = FlamingBall + | FlameletBall + | ElectricalBall + | ExplosiveBall + | FlashBall + deriving (Eq, Ord, Show, Read) --Generic, Flat) + +deriveJSON defaultOptions ''EnergyBallType