Cleanup

src/Dodge/Creature/State/Data.hs

@@ -1,55 +0,0 @@
-{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE StrictData #-}
-module Dodge.Creature.State.Data
-  where
-import GHC.Generics
-import Data.Aeson
---import Geometry
-import Geometry.Data
-import Color
-
-import Control.Lens
-import qualified Data.IntSet as IS
-data CreatureDropType
-    = DropAll
-    | DropAmount Int
-    | DropSpecific [Int]
- deriving (Eq,Ord,Show,Read,Generic)
-instance ToJSON CreatureDropType where
-    toEncoding = genericToEncoding defaultOptions
-instance FromJSON CreatureDropType
-data CrSpState 
-    = Barrel { _piercedPoints :: [Point2]}
-    | GenCr
- deriving (Eq,Ord,Show,Read,Generic)
-instance ToJSON CrSpState  where
-    toEncoding = genericToEncoding defaultOptions
-instance FromJSON CrSpState 
-data Faction 
-    = GenericFaction Int
-    | ZombieFaction
-    | EncircleFlock
-    | ChaseCritters
-    | SpawnedBy Int
-    | NoFaction
-    | ColorFaction Color
-    | PlayerFaction
- deriving (Eq,Ord,Show,Read,Generic)
-instance ToJSON Faction  where
-    toEncoding = genericToEncoding defaultOptions
-instance FromJSON Faction 
-data CrGroup
-    = LoneWolf
-    | Swarm 
-        { _swarm :: IS.IntSet 
-        , _crGroupID :: Int
-        }
-    | CrGroupID { _crGroupID :: Int }
-    | ShieldGroup
- deriving (Eq,Ord,Show,Read,Generic)
-instance ToJSON CrGroup where
-    toEncoding = genericToEncoding defaultOptions
-instance FromJSON CrGroup
-makeLenses ''CrSpState
-makeLenses ''CrGroup