Cleanup, remove DeriveGeneric language extensions

This commit is contained in:
2025-10-20 12:10:11 +01:00
parent 2056d8ba0e
commit b2fd0543dd
86 changed files with 61 additions and 263 deletions
-5
View File
@@ -1,5 +1,3 @@
{-# LANGUAGE DeriveGeneric #-}
--{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}
@@ -22,14 +20,12 @@ import Geometry.Data
data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
deriving Eq
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data PushSource
= PushesItself
| PushedBy Int
| NotPushed
deriving Eq
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data Door = Door
{ _drID :: Int
@@ -49,7 +45,6 @@ data Door = Door
, _drObstructs :: Set PathEdgeNodes
, _drObstacleType :: EdgeObstacle
}
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
makeLenses ''Door
deriveJSON defaultOptions ''DoorStatus