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
+8 -8
View File
@@ -1,7 +1,6 @@
--{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}
module Dodge.Data.Camera where
import Control.Lens
@@ -13,12 +12,12 @@ data CamInGameType
= CamOnPlayer
| CamOpticScope
| CamRemoteScope
deriving (Eq,Show,Read,Enum,Bounded)
deriving (Eq, Show, Read, Enum, Bounded)
data CamControl
= CamInGame { _cigType :: CamInGameType}
= CamInGame {_cigType :: CamInGameType}
| CamFloat
deriving (Eq,Show,Read)
deriving (Eq, Show, Read)
data Camera = Camera
{ _camCenter :: Point2
@@ -38,6 +37,7 @@ makeLenses ''CamInGameType
concat
<$> mapM
(deriveJSON defaultOptions)
[''CamInGameType
,''CamControl
,''Camera ]
[ ''CamInGameType
, ''CamControl
, ''Camera
]