Cleanup, remove DeriveGeneric language extensions
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user