Remove CreatureTargeting, start making shapes for crafts

src/Dodge/Data/Creature.hs

@@ -72,13 +72,13 @@ data Creature = Creature
     }
 
 --deriving (Eq, Show, Read) --Generic, Flat)
-
-data CreatureTargeting = CreatureTargeting
-    { _ctPos :: Maybe Point2
-    , _ctType :: Maybe TargetingType
-    , _ctID :: Maybe Int
-    , _ctActive :: Bool
-    }
+--
+--data CreatureTargeting = CreatureTargeting
+--    { _ctPos :: Maybe Point2
+--    , _ctType :: Maybe TargetingType
+--    , _ctID :: Maybe Int
+--    , _ctActive :: Bool
+--    }
 
 data CreatureCorpse = MakeDefaultCorpse
 
@@ -93,7 +93,7 @@ data Intention = Intention
 --deriving (Eq, Show, Read) --Generic, Flat)
 
 makeLenses ''Creature
-makeLenses ''CreatureTargeting
+--makeLenses ''CreatureTargeting
 makeLenses ''Intention
 
 concat
@@ -102,5 +102,5 @@ concat
         [ ''CreatureCorpse
         , ''Creature
         , ''Intention
-        , ''CreatureTargeting
+--        , ''CreatureTargeting
         ]

src/Dodge/Data/Item/Combine.hs

@@ -68,7 +68,7 @@ data CraftType
     | GASINJECTOR
     | FLAKCRAFT
     | FRAGCRAFT
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Enum, Bounded)
 
 data AttachType
     = ZOOMSCOPE