Cleanup

src/Dodge/Data/WorldEffect.hs

@@ -55,23 +55,15 @@ data WdBl
     | WdBlCrFilterNearPoint Float Point2 CrBl
     | WdBlBtOn Int
 --    | WdBlBtNotOff Int
-    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data WdP2f
     = WdP2f0
     | WdP2fDoorPosition Int
-    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data DrWdWd
     = DrWdId
     | DrWdMakeDoorDebris
-    | DrWdMechanismStepwise Int [Int] [(Point2, Point2)]
-    | DoorMechanism
     | DoorLerp
-    --deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
-    --deriving (Eq, Show, Read) --, Generic)
-    --h--deriving (Eq, Show, Read) --Generic, Flat)
 
 deriveJSON defaultOptions ''ItCrWdWd
 deriveJSON defaultOptions ''WdWd