Cleanup

2025-06-14 23:16:29 +01:00
parent 02498e5abb
commit 078a3cc7ea
19 changed files with 29 additions and 60 deletions
@@ -10,18 +10,6 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import qualified Data.IntSet as IS
-import Dodge.Data.Damage
-
-data CreatureState = CrSt
-    { _csDamage :: [Damage]
--    , _csSpState :: CrSpState
-    }
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
--data CrSpState
--    = Barrel -- {_piercedPoints :: [Point2]}
--    | GenCr
--    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data Faction
    = GenericFaction Int
@@ -44,10 +32,6 @@ data CrGroup
    | ShieldGroup
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

-makeLenses ''CreatureState
--makeLenses ''CrSpState
 makeLenses ''CrGroup
--deriveJSON defaultOptions ''CrSpState
 deriveJSON defaultOptions ''Faction
 deriveJSON defaultOptions ''CrGroup
-deriveJSON defaultOptions ''CreatureState