Cleanup barrels

src/Dodge/Data/Creature/Misc.hs

@@ -84,17 +84,23 @@ data CreatureShape
     | NonDrawnCreature
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data BarrelType = PlainBarrel | ExplosiveBarrel
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+data BarrelType
+    = PlainBarrel
+    | ExplosiveBarrel {_piercedPoints :: [Point2]}
+    deriving (Eq, Show, Read) --Generic, Flat)
 
 makeLenses ''Pulse
+makeLenses ''BarrelType
+
 --makeLenses ''CreatureStatistics
 makeLenses ''Vocalization
 makeLenses ''CrMvType
 makeLenses ''CreatureType
 deriveJSON defaultOptions ''Pulse
+
 --deriveJSON defaultOptions ''CreatureStatistics
 deriveJSON defaultOptions ''Vocalization
+
 --deriveJSON defaultOptions ''CrMvType
 deriveJSON defaultOptions ''HumanoidAI
 deriveJSON defaultOptions ''BarrelType