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