Remove some deriving clauses

This commit is contained in:
2022-08-21 22:51:05 +01:00
parent 0006973dc3
commit 76b3b74f20
8 changed files with 62 additions and 58 deletions
+4 -4
View File
@@ -38,7 +38,7 @@ data Prop
, _prRot :: Float
, _prToggle :: Bool
}
deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data PropDraw
= PropDrawSPic SPic
@@ -50,7 +50,7 @@ data PropDraw
| PropLampCover Float
| PropDrawToggle PropDraw
| PropDrawGib Float
deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data PropUpdate
= PropUpdateAnd PropUpdate PropUpdate
@@ -64,13 +64,13 @@ data PropUpdate
| PropUpdatePosition WdP2f
| PropUpdateWhen WdBl PropUpdate
| PropUpdateIf WdBl PropUpdate PropUpdate
deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data PrWdLsLs
= PrWdLsId
| PrWdLsSetPosition WdP2f Point3
| PrWdLsSetColor Point3
deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
makeLenses ''Prop
deriveJSON defaultOptions ''PropDraw