Partial (not working) refactor of damages, energyballs

2025-06-07 12:22:06 +01:00
parent 2b39152060
commit e914555728
10 changed files with 265 additions and 290 deletions
@@ -1,31 +0,0 @@
-{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE DeriveAnyClass #-}
-{-# LANGUAGE StrictData #-}
-{-# LANGUAGE TemplateHaskell #-}
-
-module Dodge.Data.Damage.Type where
-
-import Data.Aeson
-import Data.Aeson.TH
-
-data DamageType
-    = PIERCING
-    | BLUNT
-    | CUTTING
-    | SPARKING
-    | CRUSHING
-    | SHATTERING
-    | FLAMING
-    | LASERING
-    | ELECTRICAL
-    | EXPLOSIVE
-    | CONCUSSIVE
-    | POISONDAM
-    | ENTERREMENT
-    deriving (Eq, Ord, Show, Enum, Bounded, Read) --Generic, Flat)
-
-deriveJSON defaultOptions ''DamageType
-instance ToJSONKey DamageType
-
-instance FromJSONKey DamageType
-