From 7a192e763161ac4a449df6465c9927bf3bf5cd16 Mon Sep 17 00:00:00 2001 From: justin Date: Sat, 7 Jun 2025 12:22:31 +0100 Subject: [PATCH] Add file (non-compiling commit) --- src/Dodge/Data/EnergyBall/Type.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 src/Dodge/Data/EnergyBall/Type.hs 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